in reply to Help with SendMail

I don't notice anything wrong with your code offhand, other then you aren't using strict ... checking the return value of open is always a Good Thing™, so you might want to add or die "can't open sendmail". Hmmm, how about trying the CPAN module MIME::Lite instead? 
use strict;
use warnings;
use MIME::Lite;

my $msg = MIME::Lite->new(
   To      => $email,
   From    => $email,
   Subject => 'Subject:$email testing',
   Data    => 'Somthing Somthing Somthing Somthing',
);
$msg->send('sendmail');

[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

In Section Seekers of Perl Wisdom