use strict;
use POSIX qw(tmpnam);

my $dir = '/foo/bar';
my $server = 'fred';
my $error_file = tmpnam();
my $remotecmd = `rsh $server mkdir -p $dir 2>$error_file`;

if ((stat($error_file))[7])
{
    local *ERROR;
    open ERROR, "<$error_file" or die "Failed to ope $error_file: $!\n";
    my @lines = <ERROR>;
    warn "Failed to make remote directory: ", join("\n", @lines), "\n";
}

unlink($error_file);