if ($cmd eq 'reload') {
  my $child = fork ();
  if ($child) {
    print "Reloading...\n";
    exec ('perl script.pl');
    exit 1;
  } else {
    exit 1;
  }
}