use strict; # etc... my @servers = ("\\\\server1", "\\\\server2", "\\\\server3"); foreach my $server (@servers) { my $error = system ("psexec", $server, "-u", "username", "-p", "password", "remote_program name"); warn "failed to execute on $server ($error), $!" if $error; }