my $outtable = '';
my $outfile = '';
my $force;
+my $list;
my $drop;
my $help;
GetOptions(
'outtable=s' => \$outtable,
'outfile=s' => \$outfile,
+ 'list' => \$list,
'force' => \$force,
'drop' => \$drop,
'help|?' => \$help
};
}
- handle_list();
+ handle_list() if $list;
handle_columns();
if ($outfile) {