add --test cmd-line option.

diff --git a/rss2irc.pl b/rss2irc.pl
index 61efae4..680a782 100644 (file)
--- a/rss2irc.pl
+++ b/rss2irc.pl
@@ -18,6 +18,9 @@ my $irc = new Net::IRC;
 
 my $TEST = 0;
 
+my $t = shift @ARGV;
+$TEST=1 if $t eq '--test';
+
 print "Connecting...\n";
 
 my $conn = $irc->newconn(