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