##!/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/leereWeitereSuche?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();