or download this
#!/usr/bin/perl
#
...
system('pageant F:\.keys\acuroot_1_8_12_rsa.ppk F:\.keys\acuroot_1_8_1
+3_rsa.ppk -c putty -ssh -l root 192.168.100.2 -t -m C:\Users\JWSIMP~1
+\AppData\Local\Temp\BoKFVjf1B9');
system('pageant F:\.keys\operations_rsa.ppk -c putty -ssh -l operation
+s 192.168.10.245 -t -m C:\Users\JWSIMP~1\AppData\Local\Temp\d60NPopq6
+A');