5 lines
95 B
Perl
5 lines
95 B
Perl
|
$seconds = <>;
|
||
|
|
print "Sleeping...\n";
|
||
|
|
sleep $seconds; # number is in seconds
|
||
|
|
print "Awake!\n";
|