open FILE, "$file"
  or die "Can't open receipt page html file for display $!\n";
  flock(FILE,2) or die "cannot lock file: $!";
  # now make all image paths local and absolute.
  undef $/;    # enable "slurp" mode
  my $line = <FILE>;    # whole file now here
  $line =~ s/\n/ /g;
  
  #Strip out potentially nasty stuff.
  $line =~ s/<embed(.*)?<\/embed>/<!-- removed embed \/\/-->/sig;
  $line =~ s/<applet(.*)?<\/applet>/<!-- removed applet \/\/-->/sig;
                $line =~ s/<object(.*)?<\/object>/<!-- removed object \/\/-->/sig;
 
 $line =~ s/
       (<\s*(?:a|img|area)\b[^>]*(?:href|src)\s*=\s*
       ['"]?)
       ([^'"> ]+)
       (['"]?
       [^>]*>)
       /
       $1.sprintf("%s",URI->new($2)->abs($images_url)).$3
       /segix;
       # now print the lot to the browser.
   print "Content-type: text/html\n\n";
  print $line;
close (FILE);