<a href="http://www.i-scream.org.uk"><img border="0" src="../i-scream.gif"></a>
<h2>$heading</h2>
-<p> </p>
END
print `$updatecmd`;
-my $modulelist = `ls $cvsroot`;
+my($modulelist)=$query->param('module');
+$modulelist = `ls $cvsroot` unless defined $modulelist;
+
my(@modules) = split (/\s+/, $modulelist);
foreach my $module (@modules) {