urxvt-clipboard/clipboard

   1 #! /usr/bin/perl
   2
   3 sub on_sel_grab
   4 {
   5   my $query = $_[0]->selection;
   6   open (my $pipe,'|-','xsel -ib') or die;
   7   print $pipe $query;
   8   close $pipe;
   9   open (my $pipe,'|-','xsel -ip') or die;
  10   print $pipe $query;
  11   close $pipe;
  12 }
  13