#!/usr/bin/perl

my $ftp = Net::FTP::Faked->new();

print "$ftp\n";   # Net::FTP=GLOB(0x63c430)


package Net::FTP::Faked;

use Symbol;

sub new {
    my $ftp = gensym;
    bless $ftp, "Net::FTP";
}