my @time = (localtime)[1..5];
		
my $filename = ($time[4]+1900)."-"
               .($time[3]+1)."-".$time[2]."_"
               .$time[1]."-".$time[0];