#!/usr/local/bin/perl
###########################################
# primary-to-clipboard 
# Mike Schilli, 2012 (m@perlmeister.com)
###########################################
use local::lib;
use Clipboard::Xclip;

my $primary = Clipboard::Xclip->
    paste_from_selection( "primary" );

Clipboard::Xclip->copy_to_selection(
    "clipboard", $primary );