#! /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();

hping -S -p 21 ftp.ebi.ac.uk

len=46 ip=193.62.196.103 flags=SA seq=0 ttl=38 id=46485 win=16384 rtt=66.6 ms
len=46 ip=193.62.196.103 flags=SA seq=1 ttl=38 id=49730 win=16384 rtt=63.5 ms
len=46 ip=193.62.196.103 flags=SA seq=2 ttl=38 id=52985 win=16384 rtt=62.0 ms