#! /usr/bin/perl -w
  use strict;

  foreach (glob "$ENV{HOME}/DATA/*.db")
  {
    process_file ($_);
  }