Messier Random Sampler

#!/usr/bin/perl local($dir,$nlink) = @_; local($dev,$ino,$mode,$subcount); ($dev,$ino,$mode,$nlink) = stat('.') unless $nlink; # Read directory list opendir(DIR,'.') || die "CAN'T OPEN $dir\n"; local(@filenames) = readdir(DIR); closedir(DIR); srand; do { $n = int(rand($#filenames)); } until($filenames[$n] ne '.' && $filenames[$n] ne '..' && $filenames[$n] ne 'viewer.cgi'); @f = split(/\./, $filenames[$n]); $ext = $f[$#f]; print "Content-type: text/html\n\n"; print "Messier Random Sampler\n"; print "\n\n"; print "

The Messier Random Sampler

\n\n"; print "

"; $size = int((-s $filenames[$n])/1024); print "$filenames[$n] ($size Kb)

\n\n"; print "\n"; print "\n"; print "\n\n"; print "\n\n"; print "\n"; print "

\n"; print ""; print "The Messier Page"; print "

\n"; print "NEXT"; print "

"; print "

\n\n"; print "\n";