(*)
##

    my $content = get($funky);
    
    my $tree = HTML::Tree->new();
    
    $tree->parse($content);
    
    my ($title) = $tree->look_down( '_tag' , 'a' );
    my $atag = "";
    foreach $atag ( $tree->look_down( _tag => q{a}, 'class' => 'button', 'title' => 'SEARCH' ) ) 
    {
        print $atag->attr('id'), "\n";
    }
    my $ie = Win32::IEAutomation->new( visible => 0, maximize => 0);
    $ie->gotoURL($funky);
    $ie->getButton('id:', $atag )->Click();