#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
use LWP::UserAgent;
use Net::FTP;
my $url = "www.dom2.test";
my $ftp = Net::FTP->new($url, Debug => 0)
      or die "Cannot connect to $url: $@";
$ftp->ls("/index");
$ftp->quit;