gistfile1.pl

        sub GetDate
        {
                @Months = ('01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12');
                @Now = localtime(time());
                $Month = $Months[$Now[4]];
                $Year = $Now[5]+1900;
                $todaydate  = localtime(time());
                @day        = split(/ +/,$todaydate);
                @time       = split(/:/,$day[3]);
                return "$Year$Month$Now[3]_$time[0]$time[1]$time[2]";
        }