Select Code to Download

#        1         2
#2345678901234567890
print"$^F$[$[$^F"

@foo = split' ',scalar localtime;
$bar = pop @foo;
print ++$bar;