my $x = (localtime)[1];
print "$x\n";
print "".(localtime)[1],"\n";
print ((localtime)[1],"\n");
print STDOUT (localtime)[1],"\n";