#!/usr/bin/perl
warn time, "\n"; print ''.localtime;