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