#!/usr/bin/perl -w

BEGIN {
  my %perl = (linux => '/vobs/ims_tools/rhlinux/perl/bin/perl',
              sunos => '/vobs/ims_tools/sol/perl/bin/perl');

  my $perl = $perl{lc $^O} or die "unsupported operative system $^O";

  $perl eq $^X or exec $perl, '-w', $0, @ARGV;
}

# Your code here...