clipboard01.pl to HTML.

index -|- end

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

index -|- top

checked by tidy  Valid HTML 4.01 Transitional