#!/usr/local/bin/perl -w

use strict;
use MIME::Lite;

{
	my $path = 'test.pl';
	my $file = 'newname.pl';
	my $receiver = 'receiver@linux.private.com';
	
	my $new_message = MIME::Lite->new(
			From    =>'sender@linux.private.com',
			To      =>"$receiver",
			Subject =>'Whitepaper request',
			Type    =>'multipart/mixed');
			  
	$new_message->attach(
			Type     =>'BINARY',
			Path     =>"$path",
			Filename =>"$file");
							
	$new_message->send;
}