#!/usr/bin/perl5

BEGIN {
   # Guess where Spamdex.pm is. Hope we will get it right...
   push @INC, ($0 =~ /^\.\// || $0 !~ /\//)? '.': '/usr/local/lib';
}

use integer;
use strict;
use ZMailer_Message_File;

$ZMailer_Message_File::debug = 9;

ZMailer_Message_File::scan $ARGV[0];

## END of program
