--- nfo/perl/scripts/dispatchmail/bin/buildmail	2003/03/23 22:21:13	1.4
+++ nfo/perl/scripts/dispatchmail/bin/buildmail	2004/11/07 03:12:31	1.5
@@ -7,12 +7,12 @@
 use MIME::Lite;
 
 use lib qw( /data/libs/nfo/perl/libs );
-use org::netfrag::shortcuts qw( now );
+use shortcuts qw( now );
 
 my $now = now();
 
 #my $to      = 'joko@netfrag.org';
-my $to      = 'hello@netfrag.org';
+my $to      = 'test@netfrag.org';
 
 my $subject = 
   "This is just a test mail. Please ignore it." . "\n" .