#!/apollo/bin/env perl
                                                                                                                             
# This is one of the most unbelievably hackish things I've ever done,
# but it seems to be the only way to get this script to run in perl-5.8
# while still allowing other scripts on this server to run in perl-5.6
# -davkent
BEGIN {
    print "Removing perl.5.6.0 libraries\n";
    my $cntr = 0;
    foreach $path(@INC) {
       if($path =~ /(.*)(perl.5.6.0)(.*)/) {
         print "Removing $path\n";
         $INC[$cntr] = '.';
       }
        $cntr++;
     }
    unshift @INC, "/home/kmullin/Jcode-2.06";
    print "Done removing perl libraries\n";
    print "Path is now:\n";
    foreach $path(@INC) {
       print $path . "\n";
    }
}
use Amazon::DistributionCenter::Setup;
print "hello world.\n";