#!/usr/bin/env perl
# started from https://perlmonks.org/?node_id=11106496 => BillKSmith's version...
#   as
use warnings;
use strict;

my $pathToMyself = $0;

local $, = "\n\t* ";
local $\ = $/;

open our $foo, '>>', 'UniqFileName.___';  # Look for file in CWD
print {$foo} $^X, "0 = $0", "ARGV", @ARGV;

restartMe() unless @ARGV and $ARGV[0]>1;

sub restartMe {
    $ARGV[0] ||= 0;
    print {$foo} "Restarting $pathToMyself 1+$ARGV[0]...\n";
    exec("cmd.exe", "/c", $^X, $pathToMyself, 1+$ARGV[0]) or die  "couldn't exec $pathToMyself: $!";
}