use FindBin;
-my $libs;
-
-BEGIN {
- $libs = $ENV{SITE_PERLLIB} ? $ENV{SITE_PERLLIB} : "$FindBin::Bin/../lib";
-
- die "Unable to find libraries\n" if !$libs;
-}
-
-use lib $libs;
+use lib "$FindBin::Bin/../lib";
use Mail;
+use Display;
my $data = <<END;
<table cellspacing=0 border=1>
my $to = "Andrew\@DeFaria.com";
# Main
+display "Calling mail";
mail (
- "to" => $to,
- "subject" => $subject,
- "mode" => "html",
- "heading" => $heading,
- "footing" => $footing,
- "data" => $data,
-)
+ to => $to,
+ port => 1025,
+ subject => $subject,
+ mode => "html",
+ heading => $heading,
+ footing => $footing,
+ data => $data,
+ randomizeFrom => 1,
+);
+display "Called mail";
\ No newline at end of file