#!/usr/bin/perl -w
use IO::Select;

my $sel = new IO::Select (\*STDIN); 
$SIG{USR1} = sub { print "signal\n"};

if (my @socks = $sel->can_read(50)) 
{
    warn "Got Here\n";
} 
else 
{
    warn "Else: $!\n";
}