my $fh = FileHandle->new($file) or die "cannot read open $file";
my $row = <$fh>;
print "|$row|\n";