#! /usr/bin/perl

use lib qw(./cpan/tars/libnet-1.17); #//
use Net::FTP;

my $host = 'ftp.ebi.ac.uk';

my $ftp = Net::FTP->new($host, Timeout => 300, Port => 21) or die "Fehler: ",$@;
$ftp->quit();