use Cwd;
$ARGV[0] = cwd()."/$ARGV[0]" unless $ARGV[0] =~ /^(\/.*)$/ ; # Abs.
use FindBin qw($RealBin);
chdir "$RealBin/..";
use lib "$RealBin";