use strict;
use warnings;
use Config; # $Config
use File::Spec::Functions qw(file_name_is_absolute rel2abs);

INIT {
  if(!file_name_is_absolute $0) {
    print STDERR "Restarting $0 using absolute file name\n";
    exec($Config{perlpath},rel2abs($0),@ARGV) or die "exec failed ($!)";
  }
}

# Main part replaced by dummy:
while(1) {  sleep(5); print "running $$\n"; }