#!/usr/local/bin/perl $name = shift(@ARGV); $filename = $name; substr($filename,-3,3) = 'asc'; $web_path = "/research/stare"; print "Content-type: text/html\n\n"; print <$name


EOF