#!/usr/bin/perl -- use Path::Class; use constant THISFILE => file( __FILE__ )->absolute->stringify; use constant THISDIR => file( THISFILE )->dir->stringify; use constant THISCWD => dir()->absolute->resolve; use lib dir( THISDIR(), 'csgrouper_lib' )->stringify; use strict; use warnings; use autodie qw/ chdir /; chdir THISDIR(); Main( @ARGV ); exit( 0 );