use Win32::OLE qw(in with);
use Win32::OLE::Const 'CuteFTPPro';
my $ftp = Win32::OLE->new('CuteFTPPro.TEConnection', 'Close');

print "autoclosemethod is currently ", $ftp->Option(AutoCloseMethod), "!\n";
$ftp->SetProperty('Option', "AutoCloseMethod", 1);
print "autoclosemethod is now ", $ftp->Option(AutoCloseMethod), "!\n";

##</code><code>##

D:\>perl -w test.pl
autoclosemethod is currently 0!
autoclosemethod is now 1!