# exec(qw(ls -al /tmp)); die ... blah
    open my $out, ">", "filename" or die $!;
    open my $in, "-|", qw(ls -al /tmp) or die $!;
    print $out $_ while <$in>;
    close $out;
    close $in;