use strict;
use warnings;
use File::Spec;
use Cwd 2.17 qw(realpath);
eval {
  use lib (eval {
    my @dirs = File::Spec->splitdir( 
        (File::Spec->splitpath(realpath($0)))[1] );
    while (scalar(@dirs) and $dirs[-1] !~ /\d+\.\d+/) { pop(@dirs); }
    return File::Spec->join(@dirs, 'lib', 'perl'); }
  );    
  use Module1;
  use Module2;
};
if ($@) { die "Failed to load custom modules.\n"; }