#!/usr/bin/perl
# striktere Syntax
use strict;
# Erweiterte Fehlerausgaben
use warnings;
# Modul zum laden von URLs
use LWP::Simple;

# Frage nach der URL
print "Bitte URL Eingeben: ";
my $url=<STDIN>;
# Zeilenumbruch am Ende entfernen
chomp($url);

# als Erweiterung kannst du hier Prüfen,
# > ob überhaupt etwas eingeben wurde,
# > ob sie gültig ist
# > oder ob es eine URL ist ob sie erreichbar ist,

print "Ist diese URL: $url Korrekt? (j/n) ";
my $ok=<STDIN>;
chomp($ok);

# hier fehlen noch die Prüfungen
# > ob überhaupt etwas Eingeben wurde
# > ob es groß Geschrieben wurde
# > ob es etwas anderes als "j" oder "n" ist
# > oder ob es eventuell "ja" oder "nein" ist

if($ok eq 'j')
{
  my $filename=$url;

  $filename=~s/\W+//gs;

  my $msg=getstore($url, "$filename.html");

  unless(is_success($msg))
  {
    warn("Die URL konnte Nicht geladen werden!");
  }

  # hier kannst du das Protokoll in eine Datei schreiben
  # also ob der Download erfolgreich war
  # ein Bemerkung
  # die URL
  # etc.
}