Select Code to Download

package MyWebServer;

...
}

1;

use strict;
use warnings;
...
open( my $fh, '>', 'pid.txt' ) || die;
print $fh $pid;
close $fh;

package MyWebServer;

...
}

1;