#!/usr/bin/perl -w
use strict;
use POSIX qw(strftime);

my $date = strftime "%Y-%m-%d %H:%M:%S", localtime(time);
open(OUT, ">myfile.date") or die "Oopsy: $!";
print OUT $date,"\n";
close(OUT);