#!/usr/bin/perl
use strict;
use warnings;

system('pageant F:\.keys\acuroot_1_8_12_rsa.ppk F:\.keys\acuroot_1_8_13_rsa.ppk F:\.keys\operations_rsa.ppk');
system('putty -ssh -l root 192.168.100.2 -t -m C:\Users\JWSIMP~1\AppData\Local\Temp\BoKFVjf1B9');
system('putty -ssh -l operations 192.168.10.245 -t -m C:\Users\JWSIMP~1\AppData\Local\Temp\d60NPopq6A');