sub makename {
  my @time = localtime();
  return sprintf("%04d-%02d-%02d_%02d:%02d:%02d", $time[5]+1900, $time[4]+1, @time[3,2,1,0]); 
}