testscript -lib 1.0 -cell -a -f

##</code><code>##

#!/usr/bin/perl

use vars qw($opt_lib $opt_cell);
use IO::File;
use English;
use strict;
use Getopt::Long; 
Getopt::Long::Configure('no_auto_abbrev','pass_through');
GetOptions('lib=s','cell=s') or exit 1;