--- tst-original	Tue Jun 11 18:25:41 1996
+++ tst	Sat May 30 11:30:25 1998
@@ -1,6 +1,11 @@
-#!/usr/local/bin/perl5
+#!/usr/bin/perl
+if ( $#ARGV > -1 ) {
+  $db = $ARGV[0];
+}
+else {
+  $db = "/var/log/news/tstdb" ;
+}
 
-$db = "/var/log/news/tstdb";
 $tries = 10;
 
 sleep 2;
@@ -13,7 +18,7 @@
 die "No DB $db, " if $tries == 0;
 
 
-while(<>) {
+while(<STDIN>) {
    # bgs*
    ($head, $par) = split;