Help for this page
open ( FH0, '<./$file' ) or die "Unable to open $file: $!\n";
open (FH0, '<', $file) or die ...