#!/usr/bin/perl -w

# Time-stamp: <2001-07-08 14:50:06 nik@nerxs.com>
# content.pl
# get content from urls

use LWP::Simple;

if (!$ARGV[0]) {
  print "Usage: content.pl [URL]\n";
  exit;
}

unless (defined ($inhalt = get $ARGV[0])) {
  die "URL $ARGV[0] not found.\n";
}

print $inhalt;