use Getopt::Long;
my $verbose='';
GetOptions ( 'verbose' => \$verbose );