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

##</code><code>##

open (FH0, '<', $file) or die ...