sub foxtrot
{
    my $html = shift;
    my $site = shift;
    my $outname = shift;
    my ( @rValue ) = ();
    my ( $title, $url, $blurb );

    print "url: $site\n";
    $html=`/usr/local/zeddweb/scripts/cfscrape_fetch.py $site`;
    #system("/usr/local/zeddweb/scripts/cfscrape_fetch.py $site 2> /tmp/haha");
    #system( "echo $html >> /tmp/html.log" );

    $html =~ s/&amp;/&/gixs;
    $html =~ s/&gt;/>/gixs;
    $html =~ s/&lt;/</gixs;
    print "hmtl: $html\n";

    while( $html =~ s/
      <item>.*?
         <guid.*?>(.*?)<\/guid>.*?
         <link>.*?<\/link>.*?
         <title>(.*?)<\/title>.*?
         <description>(.*?)<\/description>.*?
      <\/item>//six )
    {
        $description=$3;
        #print "AAAAAAAA $description AAAAAA\n\n";
        if( $description =~ /.*?<img src=\"(.*?)\".*?>/gsi )
        {
            $img=$1;
            push @rValue, {
                'description'  => $img,
            };
            print "img src: $1\n";
        }
    }

    $resultHash = $rValue[0];
    $fetch_img=$resultHash->{'description'};

    system( "wget $fetch_img -O /usr/local/zeddweb/zii/scratch/$outname");
    system( "chmod", "ugo+rw", "/usr/local/zeddweb/zii/scratch/$outname");

    return @rValue;
}

return 1;

