#!/usr/bin/perl

use strict;
use warnings;

use WWW::Mechanize;

my $mech = WWW::Mechanize->new();
my $page = "http://www.heise.de/newsticker/";

$mech->get($page);
$mech->form_number('2');
$mech->field('T' => 'SCO');
my $results = $mech->submit();
print $results->content(), "\n";