# ... Variablen zuvor deklariert und befuellt

# Kommando vorbereiten
my @cmd = (
 qw( ssh -T -user ),
 $user01,
 $machine01,
 "ping -c 2 $machine02",
);


# Kommando ausführen, siehe: perldoc -f system
my $rc = system( @cmd );


# Exitcode kontrollieren; siehe perldoc -f system
if ( $rc == 0 ) {
  ## Erfolg
}
else {
  ## Mißerfolg
}