use strict;
use warnings;

my $inFile = q{spw592594.dat};
open my $inFH, q{<}, $inFile
   or die qq{open: $inFile: $!\n};

<$inFH>;
chomp;
print qq{-->$_<--\n};

close $inFH
   or die qq{close: $inFile: $!\n};

##</code><code>##

Use of uninitialized value in scalar chomp at ./spw592594B line 11, <$inFH> line 1.
Use of uninitialized value in concatenation (.) or string at ./spw592594B line 12, <$inFH> line 1.
--><--

##</code><code>##

use strict;
use warnings;

my $inFile = q{spw592594.dat};
open my $inFH, q{<}, $inFile
   or die qq{open: $inFile: $!\n};

$_ = <$inFH>;
chomp;
print qq{-->$_<--\n};

close $inFH
   or die qq{close: $inFile: $!\n};

##</code><code>##

-->1st line<--