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};