...

my $ssh_cmd = join ' ', map shell_quote,
    ssh => $server, $cmd;

my $watchdog_cmd = join ' ', map shell_quote,
    perl => "-e$watchdog", $timeout, $ssh_cmd;

my $output = `$watchdog_cmd`;