-w flag spewing too much to STDOUT

diff --git a/fs_signup/FS-SignupClient/cgi/signup.cgi b/fs_signup/FS-SignupClient/cgi/signup.cgi
index 00a7aa6..4f9efff 100755 (executable)
--- a/fs_signup/FS-SignupClient/cgi/signup.cgi
+++ b/fs_signup/FS-SignupClient/cgi/signup.cgi
@@ -1,6 +1,7 @@
+#!/usr/bin/perl -T
 #!/usr/bin/perl -Tw
 #
-# $Id: signup.cgi,v 1.51 2004-06-10 12:31:32 ivan Exp $
+# $Id: signup.cgi,v 1.52 2004-10-01 01:38:02 ivan Exp $
 
 use strict;
 use vars qw( @payby $cgi $locales $packages