Shell Programming and Scripting

man mailx

sub _send_email($$$) {
	my $recipient = shift;
	my $full_name = shift;
	my $result_file = shift;
	my $res_file = basename($result_file);
	my $res_dir = dirname($result_file);
	chomp(my $hostname = qx/uname -n/);

	my $msg = MIME::Lite->new(
		From => '"Manager Issuance" <abc@@xyz.com>',
		To => "\"$full_name\" <$recipient>",
		Subject => "Results of deck_check.upl for $input_dir on $hostname",
		Type => 'multipart/mixed',
		Data => "The results of your deck_check.upl run are attached."
	);

	$msg->attach(
		Type => 'TEXT',
		Data => "Hello,\n$full_name\n\nPlease DO NOT reply to this email!\n\nIt was generated by a non-user account.  Attached is a file\ncontaining the results of your requested run.\n\nThank You,\n
	);

	$msg->attach(
		Type => 'TEXT',
		Path => "$result_file",
		Filename => "$res_file",
		Disposition => 'attachment'
	);

	$msg->send("sendmail");
}

(echo "some mail body text blablabla" | uuencode somefile.dat somefile.dat) | mail -s "some subject" jupp@juppes.org