$ftp = Net::FTP->new("ftp сервер", Timeout => 30, Debug => 0) || die "Can't
connect to ftp server.\n";
$ftp->login("логин", "пароль") || die "Can't login to ftp server.\n";
$ftp->cwd("переход в директорию") || die "Path $cfg_remote_path not found on ftp server.\n";
$ftp->binary();
$size = $ftp->size("файл для которого нужно узнать размер");
$time = $ftp->mdtm("файл для которого нужно узнать время изменения");
$ftp->delete("директория для удаления");
$ftp->mkdir("директория для создания");
$ftp->rename("старое имя для переименования","новое имя");
$ftp->put("имя файла на локальном диске для закачки", "имя файла на ftp");
$ftp->put(*FD, "имя файла на ftp"); # Все что идет в FD будет сохранено.
$ftp->get("удаленный файл", "локальный файл");
$ftp->quit();