#! /usr/bin/perl
# Source - https://wiki.archlinux.org/index.php/Rxvt-unicode#Automatic_script_management

sub on_sel_grab {
    my $query=quotemeta $_[0]->selection;
    $query=~ s/\n/\\n/g;
    $query=~ s/\r/\\r/g;
    system( "echo -en " . $query . " | xsel -i -b -p" );
}