open my $fh, qq(cat "$file" |)
    or die "Couldn't read '$file': $!";