This is running on Unix. It is a script that is called from a cron job.Here is an updated script. Can you offer some help? Nothing is writtten to the file.

#!/usr/bin/perl

use strict;
use LWP::Simple;
use LWP::UserAgent;

my $data = get("http://www.cyrusoilandgas.com");
my ($wanted) = $data =~ /<!---------------PETROLEUM----------------->\
+s*(.*)\s*<map name="BbgELogin2">/s;
open (FH,"./file.txt") ||die"$!";
print FH $data;
close FH;
[download]