Perl Date Time [ yyyymmdd ]

#!/usr/bin/perl

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);

my $yyyy_mm_dd = sprintf( "%4d%02d%02d", $year+1900,$mon+1,$mday );

print "$yyyy_mm_dd\n";

use POSIX;

my $DateTime = strftime "%F", localtime $^T;

$DateTime =~ s/-//g;

print "$DateTime";