sub main {
   my @files=get_files(...);
   my $stats=scan_files(\@files);
   print_stats($stats);
   return 0;
}
exit(main());