Try This

use File::Find;

sub process_file {

 if(-f $File::Find::name)
 {
    open(FILE1, $File::Find::name) || die "Cannot open file : $!";
    $line1 = <FILE1>;
    print "$File::Find::name\n";
    print $line1;
 }
}
find(\&process_file, "C:\/views\/EDMAN");
[download]