Help for this page

Select Code to Download

Select or download this

use 5.010;
my $hour = (localtime)[2];
say $_ % 24 for $hour-1 .. $hour+2;