Select Code to Download

######### The Page you want the script to fetch.######
my $return_URL = "http://123.123.123.123/cgi-bin/index.pl";
...
flock(OUTPUT_FILE,2) or die "cannot lock file: $!";
print OUTPUT_FILE $html;
close(OUTPUT_FILE);

# Parse the Web page to identify images
my %imagefiles;                                               
...
     }# end of if image exists.
     #print "local img is: $local_img<br>/n";
}

open FILE, "$file"
  or die "Can't open receipt page html file for display $!\n";
...
   print "Content-type: text/html\n\n";
  print $line;
close (FILE);

my $https_img_path = 'https://123.123.123.255/images';
foreach my $image_url (@images){
...
$file =~ s/$image_url/$https_img_path\/$image/ig;
} # end of foreach.

#!/usr/bin/perl 
...
      close (FILE);
exit(0);