Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my $REQ = new Module::Main;
$REQ->init();
$REQ->start_it();

package Module::Main;

...
  $self->{SEC1}->do_something();
  return 1;
}

package Module::Section1;

...
  =cut

}