Help for this page
@ARGV = glob '/export/home/date_file*';
while ( my $line = <> ) {
#!/usr/bin/perl use warnings; ... } print "Total \t: $sum\n";