my $subject="test mail";
@command1=("uuencode", "<file path>", "<file>");
@command2=("mailx" ,"-s", "'$subject'","-m", "your\@email.com");
system("@command1 | @command2");