15$ for whoever can fix this simple PERL scraping script

#!/usr/bin/perl
use strict;
use LWP::Simple;

# Change the name of the output file
my $filename = "domainlist.txt";
# Change the name of the URL to fetch
my @urls = ( "http://newlydomains.com/domain-2011-08-03-us-1.html"



 );
# Change this to 0 if you want files to be overwritten
my $overwrite = 1;
print "Content-type: text/html\n\n";

  if($overwrite eq 1)
    {
    if(-e $filename)
      {
      $filename= $filename.'.'.time;
      }
    }

open (OUTFILE, ">", $filename) or die ("Cannot open file ".$filename."\n");

foreach my $url (@urls)
  {
  my $page = get($url);
  my(@results) = (join '\n', $page) =~  m|"top">(.+?)\.us</td>|gi;
  if(scalar(@results) gt 0)
    {
    foreach my $result(@results)
      {
      print OUTFILE "$result.us\n";
      }
    }
  else
    {
    print "No \".us\" domains found at $url\n";
    }
  }
  close OUTFILE;
  print "Results saved to <a href=\"$filename\">$filename</a>\n";