#!/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;