--- nfo/perl/scripts/dispatchmail/bin/buildmail	2003/01/22 05:07:56	1.1
+++ nfo/perl/scripts/dispatchmail/bin/buildmail	2003/01/22 17:50:17	1.2
@@ -3,14 +3,19 @@
 use strict;
 use warnings;
 
+
 use MIME::Lite;
 
+use lib qw( /data/libs/nfo/perl/libs );
+use org::netfrag::shortcuts qw( now );
+
 my $to      = 'joko@netfrag.org';
-my $subject = "Testmail - generated on ...";
+my $subject = "Testmail - generated on " . now();
 my $data    = "$subject";
 
 my $msg = MIME::Lite->new(
-  From    => 'test@localhost',
+#  From    => 'test@localhost',
+  From    => 'test',
   To      => "$to",
   Subject => "$subject",
   Data    => "$data\n",
@@ -18,3 +23,6 @@
 my $str = $msg->as_string;
 
 print $str;
+
+1;
+