use Net::OpenSSH::Parallel;

my $pssh = Net::OpenSSH::Parallel->new;
$pssh->add_host($_) for @hosts;

sub sftp_task {
  my ($host, $ssh) = @_;
  my $sftp = $ssh->sftp;
  $sftp->mkdir("ftp2SAT5")
    or die "unable to create directory: " . $sftp->error;
}

$pssh->all(parsub => &sftp_task);
$pssh->run;