#!/usr/bin/perl print "Content-type: text/html\n\n"; my $r = open(fh,'; close(fh); print qq( i = $i ); } else { print qq( file missing ); }