#!/usr/bin/perl -sw

use strict;

our $FILE;
our $CAT        ||= 79;
our $VERBOSE    ||= 1;

die "Usage: $0 -FILE=list [-CAT=$CAT] [-VERBOSE=$VERBOSE]\n"
    unless $FILE and -f $FILE;