Select Code to Download

use Tk;
use strict;
...
  print "Restarting $pathToMyself...\n";
    exec( $pathToMyself );
}