Select Code to Download

my $perl = $^X;
system($perl, $update_location) == 0
    or die "Couldn't launch $perl: $!";