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

##</code><code>##

my $sec  =  0;	# Not Feeded
my $min  =  19;
my $hour =  22;
my $day  =  24;
my $mon  = 02   - 1;
my $year = 2012 - 1900;
my $wday = 0;	# Not Feeded
my $yday = 0;	# Not Feeded

my $unixtime = mktime ($sec, $min, $hour, $day, $mon, $year, $wday, $yday);
print "$unixtime\n";
my $readable_time = localtime($unixtime);
print "$readable_time\n";

##</code><code>##

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