Generated: Sun Aug 21 11:10:43 2011 from clipboard01.pl 2011/08/03 314.
#!/perl -w # NAME: # AIM: use strict; use warnings; use Clipboard; sub prt($) { print shift; } my $cont = Clipboard->paste; prt( "Contents: [$cont]\n" ); prt( "Copy 'foo' to clipboard...\n" ); Clipboard->copy('foo'); $cont = Clipboard->paste; prt( "Contents: [$cont]\n" ); exit(0); # eof