#!/usr/bin/perl

use strict;
use File::Copy 'mv';

my @files = <~/Mail/*>;
my $db = <~> . '/.spamoracle.db';
my $db_new = $db . '.new';
my $db_old = $db . '.old';
my $spamoracle = '/usr/bin/spamoracle';

my @good = grep { -f && !/spam|trash/ } @files;
my @spam = grep { -f &&  /spam|trash/ } @files;

system "$spamoracle -f $db_new add -v -spam @spam -good @good";
mv $db, $db_old;
mv $db_new, $db;