use IPC::System::Simple qw(system);

system('/usr/bin/ssh', '-l', $owner, $host, $binct, @op, @lbtype);