<#! /usr/bin/perl <$time = timelocal($seconds, $minutes, $hours, $day,$month, $year),(localtime)[0,4,6,6,8,2007];>