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

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

open('EMAIL','>','/tmp/email_throw_away');

while (my $email = <STDIN>) {   # Or "my $email = <>"[2]
  my($start,$to,$name,$pid,$key);
  print EMAIL $email;
}

close(EMAIL);