Select Code to Download

#!/usr/bin/perl

...
exec '/usr/local/perl/5.12.3/bin/perl', @ARGV if $choice == 12;
exec '/usr/local/perl/5.10.1/bin/perl', @ARGV if $choice == 10;
exec '/usr/local/perl/5.8.8/bin/perl',  @ARGV;

#!/home/eliya/tmp/perl-wrapper

print "$] -- @ARGV\n";

$ ./wrap-test.pl 14 foo bar
5.014001 -- foo bar
...
5.010001 -- foo bar
$ ./wrap-test.pl 99 foo bar
5.008008 -- foo bar