use base qw(Net::Server);
...
...
MyPackage->run(port => 2000, log_file => ser.log, log_level => 4);

and then it does:

system("start build.pl");