RosettaCodeData/Task/Sleep/Perl/sleep-1.pl

$seconds = <>;
print "Sleeping...\n";
sleep $seconds; # number is in seconds
print "Awake!\n";