--- nfo/perl/scripts/dispatchmail/bin/buildmail	2003/01/27 08:53:08	1.3
+++ nfo/perl/scripts/dispatchmail/bin/buildmail	2004/11/07 03:12:31	1.5
@@ -7,12 +7,13 @@
 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      = 'links-computing@netfrag.org';
+my $to      = 'test@netfrag.org';
+
 my $subject = 
   "This is just a test mail. Please ignore it." . "\n" .
   "-- generated $now" . "\n";