my @now = localtime();
my $timestamp = sprintf("%04d-%02d-%02d.%02d-%02d-%02d",
   $now[5]+1900, $now[4]+1, $now[3],
   $now[2], $now[1], $now[0]);
my $filename = "error.$timestamp.log";