perl -MLWP::Simple -e 'getstore("http://www.google.de", "output.html")'

#!/usr/bin/perl
use LWP::Simple;
my $url="http://www.google.de";
getstore("http://www.google.de", "output.html");

#!/usr/bin/perl

use LWP::Simple;
use HTML::TokeParser;

$url = $ARGV[0] || ''http://www.google.de'';
$content = get ($url);
die "Kann Webseite nicht abrufen - Ende\n" unless $content;

$parser = HTML::TokeParser->new(\$content);
$parser->get_tag("title");
$title = $parser->get_token;

print $title->[1], "\n" if $title;