sub makename {
         my $time = localtime();
         my @time = (split(/\s+/,$time));
           my @hr = (split(/\:/,$time[3]));
        $madename = "$time[1]$time[2]$time[4]-$hr[0]:$hr[1]";
        return $madename;
}