$tme=localtime();
my ($d,$m,$y) = (localtime)[3,4,5];
my $mdy1 = sprintf '%d-%d-%d', $d, $m+1, $y+1900;
print "\nDate is:$mdy1\n";
if ($mdy1 eq "0-3-2015") {$mdy1 = "28-2-2015";}
print "\nDate is:$mdy1\n";
##</code><code>##

 
#!/usr/bin/perl --
use strict; use warnings;
use Path::Tiny qw/ path /;
use Time::Piece qw/ localtime /;
use Data::Dump qw/ dd /;
my $date = localtime()->strftime("%m-%d-%Y");
my $logprefix =  "7252_Widevine_OemCrypto_Consolelog_User1";
my $logfile   = $logprefix.'_'.$date.'.txt';

for my $ix ( 0 .. 3 ){
    my $fh = path( $logfile )->opena_raw;
    print $fh "$ix\n";
    close $fh;
    dd( path( $logfile )->slurp_raw );
}
__END__
"0\n"
"0\n1\n"
"0\n1\n2\n"
"0\n1\n2\n3\n"