#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
use LWP::UserAgent;
use Net::FTP;
use CGI;
my $cgih = new CGI;
print $cgih->header;
my $url = "www.dom2.test";
my $ftp = Net::FTP->new($url, Debug => 0)
      or die "Cannot connect to $url: $@";
$ftp->login ('', '');
if($ftp == undef){
  my $errormsg=$@;
  onError(); 
}
my @dir = $ftp->ls('*.*');
foreach (@dir)
  {print "$_<br>";}
$ftp->quit;