--- showtable
+++ showtable
@@ -1,4 +1,4 @@
-#!/usr/bin/perl5
+#!/usr/bin/perl
 # showtable - read data and show it
 #
 #    Copyright (C) 1996,1997  Alan K. Stebbens <aks@sgi.com>
--- ShowTable.pm
+++ ShowTable.pm
@@ -721,7 +721,7 @@
 
 S<  >B<ShowHTMLTable> I<\@titles>, I<\@types>, I<\@widths>, I<\&row_sub>
 [, I<\&fmt_sub> [, I<$max_width> [, I<\%URL_Keys> [, I<$no_escape> 
-[, I<\@title_formats [, I<\@data_formats [, I<$table_attrs> ] ] ] ] ] ] ];
+[, I<\@title_formats> [, I<\@data_formats> [, I<$table_attrs> ] ] ] ] ] ] ];
 
 The B<ShowHTMLTable> displays one or more rows of columns of data using
 the HTML C<\<TABLE\>> feature.  In addition to the usual parameter arguments
--- t/Test-Setup.pl
+++ t/Test-Setup.pl
@@ -19,7 +19,7 @@
 
 sub talk { print STDERR @_; }
 
-sub start_tests {
+sub start_tests($) {
     my $count = shift;		# how many tests?
     mkdir("$testdir/out",0755)  unless -d "$testdir/out";
     print "1..$count\n";	# tell harness how many tests
@@ -50,7 +50,7 @@
 
 # run_test $num, \&sub;
 
-sub run_test {
+sub run_test($&) {
     my $num = shift;
     my $sub = shift;