open(DAT, $fileName) || die "Could not open $fileName - $!\n";

##</code><code>##

open(DAT, $fileName) || die "Could not open $fileName - $!\n";
while (<DAT>) {
   print $_, "\n";
}
close(DAT);