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

4 lines
66 B
Perl

say "Sleeping...";
select undef, undef, undef, 0.5;
say "Awake!";