E:\perl>perl mech.pl
Bareword "Accept" not allowed while "strict subs" in use at mech.pl line 8.
Execution of mech.pl aborted due to compilation errors (#1)
    (F) With "strict subs" in use, a bareword is only allowed as a
    subroutine identifier, in curly brackets or to the left of the "=>"
    symbol.  Perhaps you need to predeclare a subroutine?

Uncaught exception from user code:
        Bareword "Accept" not allowed while "strict subs" in use at mech.pl line
 8.
Execution of mech.pl aborted due to compilation errors.
 at mech.pl line 17

#!/usr/bin/perl -w
use strict;
use diagnostics;
use Data::Dumper;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new;
$mech->add_header( Accept-Language => 'de');
$mech->get('http://www.rapidshare.com/files/47486343/PowerOptions.pdf');

$mech->submit_form(
    button    => 'dl.start',
);

print $mech->content;

print "Drin!\n" if $mech->content =~ /blablabla/;