Help for this page
print $filename, "\n";
my $filename="$mydir/file_detail.txt"; open (FILE, "<", $filename);