1 #!/bin/env perl 
  2 use Linux::Inotify2; 
  3 use Modern::Perl; 
  4 use Mojo::IOLoop; 
  5 
  6 $^F=0; 
  7 Mojo::IOLoop->server({ 
  8         port => 4444, 
  9     },sub{ 
 10         my ($stream,$chunk) = @_; 
 11         $stream->write('HTTP/1.1 200 OK'); 
 12         print " I am server \n"; 
 13     }); 
 14 
 15 system('/home/admin/t.sh &>/dev/null &'); 
 16