Get data from Windows Clipboard
#!/usr/bin/perl Cw use Win32::Clipboard; $clip = Win32::Clipboard->new(); $val = $clip->Get(); print "Clipboard: [ $val ]\n";