I recommend using a proper module for sending emails, MIME::Lite is often recommended, and I so far my experience with it has been very good.

Your approach is rather fragile and might be a source of trouble, for example if $subject or $emailid are not properly escaped.