use strict;
use warnings;

use POSIX qw(strftime); 
my $date = strftime("%Y/%m/%d %H:%M:%S\n", localtime(time)); 

print $date;