#!/usr/bin/perl

use strict;
use warnings;

$SIG{ALRM} = sub { die };

print STDOUT "whatever\n";
my $in;

eval {
  alarm 1;
  chomp ( $in = <STDIN> );
  alarm 0;
}; 

print "got in: $in\n";