#!/usr/bin/perl

use HTTP::Request;
use HTTP::Headers;
use LWP::UserAgent;

my($req, $ua, $responsecode, $res, $row, $url);


	$url = "http://listings.test.com/aw/listings/list/category12";
	$request = new HTTP::Request('GET',$url);
	$ua->timeout(10);
	$response = $ua->request($request);
	my $responsecode = $response->code();
 	next if $responsecode != 200;
	                
        #} 
		@ARRAY_OF_LINES = (split "\n", $ua->request($request)->as_string);
		 $request->as_string;
		 foreach $row (@ARRAY_OF_LINES) {
        chomp($row);
		}
		if ($row =~ /Updated/){
			print $1;			
}else{
							next;
							}
			
##</code><code>##

Can't call method "request" on an undefined value at url.pl line 7.