#!/usr/bin/perl

my $choice = splice @ARGV,1,1;

exec '/usr/local/perl/5.14.1/bin/perl', @ARGV if $choice == 14;
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;

##</code><code>##

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

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

##</code><code>##

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