#!/opt/iphone/bin/perl
print "Content-type: text/html\n\n";  
  undef $/;
  open(FILE, "memofile.html");
     $memofile_contents = <FILE>;
  close(FILE);
  $/ = "\n";
print "$memofile_contents";