I just wanted to look onto the job offers at the homepage of the german federal employment office. Damn, this site costs enormous amounts of taxes, but it isn't easy to search for jobs with it. I like the google-way, an inbox and a search-button is everything I need and want.
Okay, Perl and
WWW::Mechanize helps me in this case.
##!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;
my $search_for = shift @ARGV;
my $zip = 12345;
my $mech = WWW::Mechanize->new();
$mech->get( 'http://www.arbeitsagentur.de/vam/vamController/SucheAS/le
+ereWeitereSuche?typ=arbeitnehmer' );
$mech->form_number(2);
$mech->set_fields(art => 12);
$mech->set_fields(suchtext => $search_for);
$mech->set_fields(plz => $zip);
$mech->click('suche');
system('C:\Programme\Internet Explorer\IEXPLORE.EXE', $mech->uri);
exit();