fork.pl

#!/usr/bin/env perl
# Usage:
#   $ perl fork.pl 'ssh XXX@XXXX "some_heavy_command"'

use strict;
use warnings;
use Capture::Tiny;

my $cmd = shift || die 'no command.';

my $pid = fork;
if (defined $pid && $pid == 0) {
    my $out = Capture::Tiny::capture_merged {
        system $cmd;
    };
    print <<"...";
# ====================================
# $cmd
# ====================================
$out

...
    exit 1;

} elsif (! defined $pid) {
    die "couldn't not fork";
}