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 test.pl
autoclosemethod is currently !
autoclosemethod is now !

D:\>perl -w test.pl
Win32::OLE(0.1601) error 0x8002000e: "Invalid number of parameters"
    in METHOD/PROPERTYGET "Option" at test.pl line 6
Win32::OLE(0.1601) error 0x8002000e: "Invalid number of parameters"
    in PROPERTYPUT "Option" at test.pl line 6
autoclosemethod is currently Use of uninitialized value in print at test.pl line 6.
!
Win32::OLE(0.1601) error 0x8002000e: "Invalid number of parameters"
    in METHOD/PROPERTYGET "Option" at test.pl line 8
Win32::OLE(0.1601) error 0x8002000e: "Invalid number of parameters"
    in PROPERTYPUT "Option" at test.pl line 8
autoclosemethod is now Use of uninitialized value in print at test.pl line 8.
!