view release on metacpan or  search on metacpan

Examples/GDS2Tool/gds2tool  view on Meta::CPAN

}
use GDS2;
use CircuitLayout;

our $DEBUG = FALSE;
our $pp = 4; ## print precision
our $ppp = $pp + 1; ## print precision plus
our $G_gds2FileNameIn = '';
our $G_techContents = '';
our $G_techFilesRead = '';
our $G_user = getpwuid($<);
chomp $G_user; 
my $topCell = '';
my $privateColorMap = FALSE;
my $visibleOnly     = FALSE;

## process command line...
GetOptions(
    'debug'            => \$DEBUG,
    'help|?'           => \&printUsage,
    'privatecolormap'  => \$privateColorMap,