BEGIN { $^W = 0; eval "use Net::Gnift qw(Net::FTP);"; if($@) { eval "use Net::FTP;"; if($@) { print qq`Content-Type: text/html\n\nYou do not have Net: :FTP installed. You need it to use Web-FTP. You can find it on CPAN`; die "Net::FTP not found in \@INC: @INC"; } } }