Select Code to Download

use strict;
use warnings;

A::func();

use Exporter;
@EXPORT = qw ($guimodule);
...
}
1;

sub new 
{ ....
...

}
1;

my $s = Server->new();
$s->initServer();

use A; 
sub new 
...
}
1;