#! /usr/bin/perl

use Trimble_DL;

if ( $ARGV[0] ) {

foreach $SITE ( @ARGV ) {
	$result = 1;
	while( $result == 1 ) { 
		$result = get_allfiles( $SITE );
	}
}

} else { 
	print STDOUT "You must supply an site for an argument\n";
	print STDOUT "Like \"dwnld_trimble TEST\"\n";
}

print STDOUT "Successful completion of dwnld_trimble.\n";
