Select Code to Download

Select or download this

use Win32::OLE qw(in with);
use Win32::OLE::Const 'CuteFTPPro';
...
print "autoclosemethod is currently ", $ftp->{Option}{AutoCloseMethod}
+, "!\n";
$ftp->SetProperty('Option', "AutoCloseMethod", 1);
print "autoclosemethod is now ", $ftp->{Option}{AutoCloseMethod}, "!\n
+";

Select or download this

D:\>perl test.pl
autoclosemethod is currently !
...
    in PROPERTYPUT "Option" at test.pl line 8
autoclosemethod is now Use of uninitialized value in print at test.pl 
+line 8.
!