package mod; sub foo{ print "hello world\n; # eek! missing a double quote } 1; #### eval "use mod"; mod::foo(); #### eval "use mod"; die $@ if $@; mod::foo();