my %Opt = (
'header' => 1,
+ 'total' => 1,
'sep' => "\t",
);
get_options(\%Opt);
}
print $sep_line;
-print "$tot Records\n" if $VERBOSE;
+print "$tot Records\n" if $Opt{total};
#################################################################################
#
-option[header|h!] Print or not header separotor after first row
-option[sep|s=s] Separtor
+ -option[total|t!] Print number of total record (default: $Opt{total})
-option[format|f!] Only format according to option --sep. Usefull for coding
-option[verbose|v+] Verbose mode: increase the verbosity level.
-option[debug+] Debug mode: increase the verbosity level.