Select Code to Download

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

#!/usr/bin/perl
use strict;
...
open('EMAIL','>','/tmp/email_throw_away');
  print EMAIL $email; # <--- error here ???
close(EMAIL);

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

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

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

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