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