Select Code to Download

sub shell_quote {
    my $s = @_ ? $_[0] : $_;
...
    ssh => $server, $watchdog_cmd;

my $output = `$ssh_cmd`;

...

...
    perl => "-e$watchdog", $timeout, $ssh_cmd;

my $output = `$watchdog_cmd`;