Select Code to Download

use Win32::OLE qw(in with);
use Win32::OLE::Const 'CuteFTPPro';
my $ftp = Win32::OLE->new('CuteFTPPro.TEConnection', 'Close')
   or die "Error: Can't create FTP object: $!";
print "FTP object created, continuing...\n";