Can you try this:
#!/usr/bin/perl
use strict;
use warnings;
my $to ="recipent\@xyz.com";
my $cc = "copied\@xyz.com";
my $from = "noreply\@xyz.com";
my $subject = "You have got mail";
my $message = "Hello Admin\n\nHow are you doing today\n\nRegards,\n\An
+onymous";
# send email using UNIX/Linux sendmail
open(MAIL, "|/usr/sbin/sendmail -t");
## Mail Header
print MAIL "To: $to\n";
print MAIL "Cc: $cc\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n";
## Mail Body
print MAIL $message;
# Close
close(MAIL);