#!/usr/bin/perl

$to='valaki@zold.and';
$from= 'masvalaki@piros.and';
$subject='Teszt levél';

open(MAIL, "|/usr/sbin/sendmail -t");

print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";

print MAIL "Az üzenetünk\n";

close(MAIL);