#!/usr/bin/perl -w
use strict;

$SIG{ALRM} = sub {
    warn "too late...";
    exit;
};

print "Gimme some input in 10 seconds\n";
alarm 10;
print ">";

my $input = <>;
print "your input was: $input\n";