#!/usr/bin/env perl
use warnings;
use strict;

my $pathToMyself = $0;

local $, = "\n\t* ";
local $\ = $/;
#print "\t".$^X, $0, @ARGV;

restartMe() unless @ARGV;
open my $foo, '>', 'UniqFileName.___';  # Look for file in CWD

sub restartMe {
#    print "Restarting $pathToMyself...\n";
    #exec( $^X, $pathToMyself ) or die "couldn't exec $pathToMyself: $!";
    #system(1, $^X, $pathToMyself, "don't Restart", "final" ); exit;
    #system(1, "cmd.exe", "/c", $^X, $pathToMyself, "final"); exit;
    exec("cmd.exe", "/c", $^X, $pathToMyself, "final") or die  "couldn't exec $pathToMyself: $!";
}