use Net::OpenSSH; my $ssh = Net::OpenSSH->new($host, timeout => 30); $ssh->scp_put($firmware[$antenna_type],'/tmp/fwupdate.bin'); $ssh->system("/sbin/fwupdate -m\n");