#!/usr/bin/perl

open PID, "/tmp/do_stuff.pid"
  or spawn();
chomp(my $pid = <PID>);
close PID;

kill -HUP => $pid or spawn();


sub spawn {
  fork and exit;
  exec "/usr/bin/perl", "my_prog.pl";
}