#!/afs/athena/contrib/perl/perl
require 'timelocal.pl';
$mytime=time;
@mylocaltime=localtime($mytime);
print $mytime,"\n";
print &timelocal(@mylocaltime[0..5],0,0,1),"\n";
print join(" ",localtime(&timelocal(@mylocaltime[0..5],0,0,1))),"\n";
print join(" ",localtime($mytime)),"\n";