BEGIN {
	use strict;
	use warnings;
	print "I am here!\n";
	use Pod::Usage qw( pod2usage );
	### Bomb if there is nothing on the command line ###
	pod2usage(2) if ( not @ARGV );
	print "I am there!\n";
	@cmd = fileparse( File::Spec->rel2abs( $0 ), '\.[^.]*' );
	$LIBPATH = File::Spec->catdir( $cmd[1], "../lib" );
	eval " use lib '$LIBPATH'";
	chdir "$LIBPATH";
	
	use Data::Dumper;
	printf "---ENV---\n%s\n", Dumper( \%ENV );
	
}

##</code><code>##

I am here!
Usage:
    move_data.pl [options]

    Options:

     -help..........Brief help message
     -man...........Full documentation
     -config........Full path to the configuration file