#!/usr/bin/perl print "Content-type: text/html\n\n"; print qq~ File count

~; #test routine $dirt = './'; @files = <$dirt/*>; $count = $#files + 1; print qq~

$count

~;