#!/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);