http://qs321.pair.com?node_id=404784


in reply to use and require inside subs

You can also use autouse 
# Main script

use autouse Somemodule => qw(func1 func2);

main_script_func {
   func1();
}

[download]

In Section Seekers of Perl Wisdom