received_to_epoch.pl

#!/usr/bin/perl
# Finds all of the Received: lines in an email and spits out the
# epoch of each parsed line
use strict;
use Time::ParseDate;    # libtime-modules-perl

while( <> ){
        chomp;
        last if /^$/;
        next unless /^Received:/;

        print parsedate( $1 ) . "\n"
                if( /;(.+)/ );
}