#!/usr/bin/perl

use strict;
use FileHandle;
use MIME::Lite;

if ($#ARGV<1)
{
    print "usage: xmail  <address> <subject> <file> [<file> [...]]\n";
    exit 0;
}

my $msg=new MIME::Lite
  'To'       =>shift,
  'Subject'  =>shift,
  'Type'     =>'multipart/mixed';

my $file;
foreach $file (@ARGV)
{
    if (!-e $file)
    {
        print STDERR "$file does not exist, skipping...\n";
    }
    else
    {
        attach $msg
            Type     =>'application/octet-stream',
            Encoding =>'base64',
            Filename =>&basename($file),
      Path     =>$file;
    }
}

#my $mail=new FileHandle "|/usr/sbin/sendmail -t";
#$msg->print($mail);
$msg->send();

sub basename
{
    my($file)=@_;

    my @foo=split('/', $file);
    return $foo[$#foo];
}