#!/usr/bin/perl -w # # Author: Artem Russakovskii # # http://beerpla.net # # $Rev$ # $Author$ # $Date$ # $HeadURL$ # ############################################################################### use strict; use File::Basename; use lib dirname($0) . "/some_path1"; use lib dirname($0) . "/some_path1/some_path2"; use TheUberLib; print "\$0 is: $0\n"; my $relative_path_to_bin_dir = "../the_path_we_want/run_me_now_or_you_will_die"; my $path_to_uber_lib = dirname($INC{'TheUberLib.pm'}); my $path_to_deadly_bin = Cwd::realpath("$path_to_uber_lib/$relative_path_to_bin_dir"); print "The path to deadly bin is: $path_to_deadly_bin\n";