Select Code to Download

$perl -d main.pl

...
  DB<2> S main*
main::BEGIN
  DB<3>

use strict;
require "somefile.pl";
...
use newform;
&newform::someFile();
&newform::func1();

sub BEGIN
  {
    require "somefile.pl";
  }

&main::someFile();