BEGIN{ use subs qw(use); sub use{ print "Using fake use\n"; } } use Data::Dumper;