#!/usr/bin/perl -w my $foo="/tmp/*"; my @glob=glob($foo); my $size=scalar(@glob); print "Content-type: text/html\n\n"; print "\n"; print "SIZE: $size\n"; print"\n";