$stimm = localtime($^T);

print ((split/ /,$stimm)[1]);