clipboard extension for urxvt (updated)

clipboard

#! /usr/bin/perl
# adapted from https://wiki.archlinux.org/index.php/Rxvt-unicode#Automatic_Script_Management
sub on_sel_grab {
  my ($term, $time) = @_;
    my $query = $term->selection;
    $term->selection_grab ($time, 1);
    $term->selection($query, 1);
    return 0;
}