Daemon::Daemonize and Server::Starter

gistfile1.pl

 58     my $exec = ['plackup', '-s', 'Starman', @options, $app];
 59     daemonize( 
 60         run => sub{
 61             start_server(   
 62                 port        => $port,
 63                 pid_file    => $pid_file,
 64                 status_file => $status_file,
 65                 exec        => $exec,
 66             );
 67         },
 68     );