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";