#! /usr/bin/perl -w

use strict;
use MIME::Lite;

$ENV{ 'PATH' } = '/bin:/usr/bin:/usr/local/bin:/usr/lib:/var/qmail/bin';
$ENV{ 'BASH_ENV' } = '';
my $msg = MIME::Lite->new(
        From    => 'ccalzonetti@quarry.com',
        To      => 'ccalzone@quarry.com',
        Subject => 'A test',
        Type    => 'multipart/mixed',
        );

$msg->attach(
        Type => 'TEXT',
        Data => "Here is a file.\n",
        );

$msg->attach(
        Type => 'application/octect-stream',
        Path => '/var/wwwdata/docs/wml_style.pdf',
        Disposition => 'attachment',
        );

$msg->send;