eval {
    local $SIG{'ALRM'} = sub { die "Timed out" };
    alarm($timeout);
    while(<$conn>) {
       ....
       alarm($timeout);
    }
    alarm(0);
}
if ($@ =~ /Timed out/) {
    print STDOUT "Timed Out.\r\n";
}