RosettaCodeData/Task/Sleep/Perl-6/sleep.pl6

5 lines
112 B
Raku
Raw Permalink Normal View History

2013-04-11 01:07:29 -07:00
my $sec = prompt("Sleep for how many microfortnights? ") * 1.2096;
say "Sleeping...";
sleep $sec;
say "Awake!";