mac-pasteboard.pl

#!/usr/local/perls/perl-5.14.2/bin/perl

use Mac::Pasteboard;

my $pb = Mac::Pasteboard->new;

my %tags = $pb->flavor_tags;
my @names = $pb->flavor_flag_names ($flags);

use Data::Dumper;
print Dumper( \@names ), "\n";


#$pb->clear();
#$pb->copy( "$0 $$ " . localtime() );

printf "On the clipboard-----\n%s\n---------------\n",
	$pb->paste;

#$pb->copy( "$0 $$ " . localtime() );

$pb->clear();

__END__

printf "On the clipboard-----\n%s\n---------------\n",
	$pb->paste;