#!/usr/bin/perl
BEGIN {
    unless ($ENV{DONE_RESTARTING_MYSELF}) {  # avoid endless loop...
        $ENV{DONE_RESTARTING_MYSELF} = 1;
        exec $^X, $0, @ARGV;
    }
}
# ...