Select Code to Download

open (FH, "file.html");
my $find = quotemeta('here.company.com/pagedir'); 
...
## a plain 'print' prints to STDOUT.  you want to print to 
## your filehandle instead.
close (FH);