my $ftp = Net::FTP->new('foobar');
$ftp->login('foo', 'bar');
$ftp->put('localfile', 'remotefile');
$ftp->quot('chmod', '777', 'remotefile');
$ftp->quit();