init script

#!/usr/bin/perl

use Ubic::Service::Plack;
my $service = Ubic::Service::Plack->new({
  server => "FCGI",
  server_args => { listen => "/tmp/app.sock", nproc => 5 },
  app => "/opt/my-app/app.psgi",
  pidfile => "/opt/my-app/app.pid",
  port => 8080,
  ubic_log => ""/opt/my-app/log/ubic.log",
  stdout_log => ""/opt/my-app/log/stdout.log",
  stderr_log => ""/opt/my-app/log/stderr.log",
  user => "my-user",
});

my $command = shift;
$service->$command;