Select Code to Download

 if ($file =~ /Rajesh.(\d+).*/) {
    print $1;
            }

my $sec  =  0;    # Not Feeded
my $min  =  19;
...
print "$unixtime\n";
my $readable_time = localtime($unixtime);
print "$readable_time\n";

my $CurrentTime = time();
my $Todaydate = localtime($startTime);