1 #!/usr/local/bin/perl
2 use local::lib;
3 use Clipboard::Xclip;
4 
5 my $primary = Clipboard::Xclip->
6     paste_from_selection( "primary" );
7 
8 Clipboard::Xclip->copy_to_selection(
9     "clipboard", $primary );