Change the line $head = Mail::Internet->new() to Mail::Header->new .... you are using the wrong class.