Select Code to Download

perl -w -E 'say (localtime)[1]'
say (...) interpreted as function at -e line 1.

my $x = (localtime)[1];

return (localtime)[1];