require HTTP::Request;
require HTTP::Response;
require LWP::UserAgent;

while( 1 ) {
    $ua = LWP::UserAgent->new;
    $request = HTTP::Request->new( GET => "$url" );
    $response = $ua->request( $request );

    if ( $response->is_success ) {
        ( $sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst ) 
            = localtime( time );
	my $content_dump = ( ($year += 1900) . ".$mon.$hour.$min.$sec.jpg" );
        open(  PICDUMP, ">$outputbase/$content_dump" ) 
	    || die( "Couldn't open $outputbase/$content_dump ($!)" );
        print( PICDUMP $response->content ) 
	    || die( "Couldn't print to file ($!)" );
	print( STDOUT "Wrote $content_dump\n" );
        close( PICDUMP );
	sleep 4;
    } else {
        print $response->error_as_HTML;
    }
}