#! /usr/bin/perl

use File::Find;
use File::Slurp;

sub fixit {
    return unless $File::Find::dir =~ /cur$/;
    return if -d $_;
    return unless -r $_;
    @item = read_file($File::Find::name);
    if ($item[0] =~ /^From /) {
	shift(@item);
	write_file($File::Find::name, @item);
    }
}

find(\&fixit, "$ENV{HOME}//mail");
