cat /home/hesco/lib/perl/ETC/etc/vote2009.mbox | formail -s | /home/hesco/lib/perl/ETC/parse_email.pl

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

use lib qw( /home/hesco/lib/perl );
use parser;

my $email = $ARGV[0];

my($start,$to,$name,$pid,$key);
open('EMAIL','>','/tmp/email_throw_away');
  print EMAIL $email; # <--- error here ???
close(EMAIL);

##</code><code>##

cat /home/hesco/lib/perl/ETC/etc/vote2009.sample | /home/hesco/lib/perl/ETC/parse_email.pl

##</code><code>##

Use of uninitialized value $email in print at /home/hesco/lib/perl/ETC/parse_email.pl line 13.

##</code><code>##

cat /home/hesco/lib/perl/ETC/etc/vote2009.mbox | formail -s | /home/hesco/lib/perl/ETC/parse_email.pl -

##</code><code>##

cat /home/hesco/lib/perl/ETC/etc/vote2009.mbox | formail -s /home/hesco/lib/perl/ETC/parse_email.pl -