#!/usr/bin/perl -w
# 
# $Id: move_data.pl,v 1.12 2005/05/05 21:25:58 dwhitney Exp $

### Declaire script vars ###
use vars qw( $Executable $Transaction );
$|++;	# Turn on autoflush

### Import pre-requisite packages
use Log::Log4perl;
use Getopt::Long qw( GetOptions );
use Cwd qw( chdir realpath );
use Benchmark qw( timestr timediff );
use Pod::Usage qw( pod2usage );
use File::Basename qw( fileparse );
use File::Spec qw( catfile rel2abs );
### Bomb if there is nothing on the command line ###
pod2usage(2) if ( not @ARGV );

my @cmd;
my $LIBPATH;

BEGIN {
	use strict;
	use warnings;
	@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 );
	
}