warn "\n## ssh $ip\n";
my $ssh = Net::OpenSSH->new($ip, user => $login, passwd => $passwd,
ssh_cmd => '/usr/bin/ssh1', # apt-get install openssh-client-ssh1
- master_opts => [ -o => "StrictHostKeyChecking=no", ],
- default_ssh_opts => [ -o => "StrictHostKeyChecking=no", ],
+ master_opts => [
+ -o => "StrictHostKeyChecking=no",
+ -F => '/home/dpavlin/dell-switch/ssh1-config'
+ ],
+ default_ssh_opts => [
+ -o => "StrictHostKeyChecking=no",
+ -F => '/home/dpavlin/dell-switch/ssh1-config'
+ ],
);
my ($pty ,$pid) = $ssh->open2pty();
if ( ! $pty ) {