added pid file

diff --git a/web_ui.pl b/web_ui.pl
index 7eb6563..52ad371 100755 (executable)
--- a/web_ui.pl
+++ b/web_ui.pl
@@ -193,5 +193,8 @@ get '/user' => sub {
        $self->render('user');
 };
 
+open(my $pid, '>', '/tmp/apkpm.web_ui.pid');
+print $pid "$$\n";
+close $pid;
 
 app->start;