perl -Mstrict -Mwarnings -E '
    my $cmd = q{ping -c 5 www.perlmonks.org};
    my $file = q{./pm_1031633.out};
    open my $ping_pipe, "-|", $cmd or die "Pipe from $cmd failed: $!";
    open my $out_fh, ">", $file or die "Write to $file failed: $!";
    while (<$ping_pipe>) {
        print { $out_fh } $_;
    }
'