#!/usr/bin/perl
use Date::Format;
our $cur_date = time2str("%d",time);
print "Current Date : $cur_date\n";
my $path = '/home/cont';
@listfiles = `find "$path" -type f -mtime -7 -print`;
print @listfiles."\n";