Select Code to Download

Select or download this
```
... key_path= $private_key_path, ...
```

$ perl -MO=Deparse,-p -e 'my $ssh = Net::OpenSSH->new($host, user => $
+user, master_opts => ["-vvv"], key_path= $private_key_path, default_s
+sh_opts=>[-o =>"Port=24"]);'
Can't modify constant item in scalar assignment at -e line 1, near "$p
+rivate_key_path,"
-e had compilation errors.
(my $ssh = 'Net::OpenSSH'->new($host, 'user', $user, 'master_opts', ['
+-vvv'], ('key_path' = $private_key_path), 'default_ssh_opts', [(-'o')
+, 'Port=24']));

Select or download this

$ perl -MO=Deparse,-p -e 'my $ssh = Net::OpenSSH->new($host, user => $
+user, master_opts => ["-vvv"], key_path=> $private_key_path, default_
+ssh_opts=>[-o =>"Port=24"]);'
(my $ssh = 'Net::OpenSSH'->new($host, 'user', $user, 'master_opts', ['
+-vvv'], 'key_path', $private_key_path, 'default_ssh_opts', ['-o', 'Po
+rt=24']));
-e syntax OK