use warnings;
use diagnostics;
use Carp;
use Getopt::Long qw(:config permute);
use File::Temp;
use File::Spec;
use lib "$ENV{HOME}/usr/local/perl_local_lib";
use GRASS::raster qw(:all);
use SMDR::setup_3001 qw(:all);