#!/usr/bin/perl
#

use strict;
use warnings;
use Net::SMTP;
use MIME::Lite;


sub main
{
   my ($rcpt,$fn) = @_;
   my $msg;

   $msg = MIME::Lite->new( To      =>$rcpt,
                   From  =>'delps.demo%marviq.com',
                   Subject =>'Click and Claim faxprobleem',
                   Type    =>'multipart/mixed'
                   );

        $msg->attach( Type => 'text/html',
                      Encoding => 'quoted-printable',
                      Path =>$fn
                    );

        if ($msg->send()) {
                print "Success\n";
                }
        else {
                print "Failed\n";
        }
}

exit (&main(@ARGV) ? 0 : -1);