main.pl
use Tk;
.
.
.
.
sub s1
{
  require p1.pl;
  require p2.pl;
  require p3.pl;
  require p4.pl;
.
.
.
.}
1;
.
.
.

##</code><code>##

p3.pl
.
.
.
sub s2
{
 require p5.pl;
 require p6.pl;
 require p7.pl;
 require p8.pl;
.
.
.
}
1;
.
.
.