3 lines
66 B
Perl
3 lines
66 B
Perl
say "Sleeping...";
|
|
select undef, undef, undef, 0.5;
|
|
say "Awake!";
|
say "Sleeping...";
|
|
select undef, undef, undef, 0.5;
|
|
say "Awake!";
|