unless (open(FILE, "$catdir/categories.dat"))
{
     error_message("Can't find data file - $catdir/categories.dat");
}