astrolitterbox

## bin_cube.perl
if ($#ARGV<2) {
    print "USE: bin_cube.pl INPUT.CUBE.fits BIN_BOX OUTPUT.CUBE.fits \n";
    exit;
}

$infile=$ARGV[0];
#scale factor
$N=$ARGV[1];
$outfile=$ARGV[2];
#Perl data language: read FITS file
	if ($#ARGV<2) {
	print "USE: bin_cube.pl INPUT.CUBE.fits BIN_BOX OUTPUT.CUBE.fits \n";
	exit;
	}

	$infile=$ARGV[0];
	#scale factor
	$N=$ARGV[1];
	$outfile=$ARGV[2];
	#Perl data language: read FITS file