BEGIN{ $DB::single = 1;}
use Anything qw( importme );

print "JAPH";