use WWW::Mechanize::Firefox;
my $mech = WWW::Mechanize::Firefox->new();
$mech->get('http://perl-community.de/bat/poard/board/10');
$quellcode = $mech-> content();
if ($quellcode =~(m/firefox/)){
print "thread mit content = firefox gefunden"; }
else{ system ("perl script.pl --processes=2")
die; }