scalar(localtime(time()))
#!/usr/bin/perl use warnings; use strict; print scalar(localtime(time())), "\n";