#!/usr/bin/perl ¨Cwuse Win32::Clipboard;$clip = Win32::Clipboard->new();$val = $clip->Get();print "Clipboard: [ $val ]\n";