print $filename, "\n";

##</code><code>##

my $filename="$mydir/file_detail.txt";
open (FILE, "<", $filename);