Я написал запросик, но он что-то не работает.
Мне нужно чтобы вывело все директории в папке Video.
Вот то, что я написал:
#!c:/perl/bin/perl
use Net::FTP;
$ftp=Net::FTP->new("xxx.xxx.xxx.xxx", Debug => 0);
$ftp->login("list",\'-list@\');
$ftp->cwd("/video");
@dirname=$ftp->dir();
$ftp->quit;
print "Content-Type: text/html; charset=windows-1251\\n\\n";
print "";
print "";
foreach $b (@dirname) {print $b};
print "";
print "";
Если что-то я неправильно написал, просьба не издеваться :\\