use QStat;
foo();
print "QStat foo is: ", \&QStat::foo, "\n";
print "Imported foo is: ", \&main::foo, "\n";

<STDIN>;

my $loc = $INC{QStat};
delete $INC{QStat};
require $loc;

# slightly more difficult
# QStat->import();

print "After import, foo is: ", \&main::foo, "\n";
print "And in the package it is: ", \&QStat::foo, "\n";