#!/usr/bin/perl -w
use strict;

my $executable = 'NetMailBot.exe';
my $server = 'mail.domain.com';
my $from = 'to@domain.com';
my $to = 'from@domain.com';
my $subject = 'Test: Perl system call';
my $body = "Test: Perl system call";

my @args = (  "$executable", "-server", "$server", 
                     "-from", "$from", 
                     "-to", "$to", 
                     "-subject", "\"$subject\"", 
                     "-body", "\"$body\""
                  );
my $result = system(@args);
print "$result";