Select Code to Download

@files = glob ('/export/home/date_file*);
               ^                       ^<-- not there

use warnings;
use strict;
...

$total += $type{$_} for keys %type;
print $total, $/;