use strict;
use warnings;

use MyWebServer;

my $server = MyWebServer->new( 8080 );
my $pid    = $server->background();

print STDERR $pid, "\n";

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