Select Code to Download

#23864 1392974375.00000 new: This is Net::SFTP::Foreign 1.73
#23864 1392974375.00000 new: Loaded from /usr/local/lib/perl5/site_per
+l/5.16.1/Net/SFTP/Foreign.pm
#23864 1392974375.00000 new: Running on Perl v5.16.1 for linux
...
#23864 1392974375.00000 _do_io: _do_io write queue: 9, syswrite: 9, ma
+x: 65536, $!:
00 00 00 05 01 00 00 00 03                                            
+                          | .........
#23864 1392974375.00000 _do_io: _do_io select(-,-,-, undef)

 my $sftpHost = $userName . '@' . $hostName;

                use Expect;
...
                $sftpHandl->setcwd($destPath) or die("Cannot cd to $de
+stPath $!\n") ;

                $sftpHandl->put($remtPath.$fileFnc,$fileFnc) or die("C
+ouldn't put file in the SFTP Location $!\n");