open(THISFILE,'< $file') or warn "ERROR: Can't open $outfile!\n";

##</code><code>##

open(THISFILE,'<'.$file) or warn "ERROR: Can't open $file: $!\n";