my $ftp;
BEGIN {
  eval {
    require Foo;
  }; # oder eval "use Foo"
  $ftp = 1 unless $@;
}

if ($ftp) {
}