my $ret;

eval {
    local $SIG{ALRM} = sub { die "timeout" };
    alarm(5);
    $ret = $ftp->pwd;
    alarm(0);
};

if (!defined $ret) {
    $ftp = Net::FTP->new(....);
}