use Win32::Daemon::Simple
 Service => 'SERVICENAME',
 Name => 'SERVICE NAME',
 Version => 'x.x',
 StopOnError => 1,
 Info => {
  ...
 },
 Params => {
  MsgOnError => Win32::NodeName(), # send to local console
  Tick => 0,
  Talkative => 0,
  ...
 };