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 $dirn”;

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/htmlnn”;

print “n”;

print “nn”;

print “

The Messier Random Sampler

nn”;

print “

---

“;

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

print “$filenames[$n] ($size Kb)

---

nn”;

print “

n”;

print “

n”;

print “

nn”;

print “

nn”;

print “

n”;

print “

n”; print ““; print “The Messier Page“; print “

n”; print “NEXT“; print ““; print “

nn”;

print “n”;