Perl script to exchange BIGIP ssh key