#!/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 @cmd $LIBPATH );
$|++;	# Turn on autoflush

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

BEGIN {
	$LIBPATH = "../lib";
	@cmd = fileparse( File::Spec->rel2abs( $0 ), '\.[^.]*' );
	$LIBPATH = File::Spec->catdir( $cmd[1], "$LIBPATH" );
	eval " use lib '$LIBPATH'";
}

### Use the MoveDataTools package ###
use MoveDataTools;