#!/usr/bin/perl
# strict und warnings sollten immer rein!
use warnings;
use strict;

my $outfile = "url_liste.txt"; # Name der Ausgabedatei

# Datei zum Schreiben oeffnen
# Achtung: Die Datei wird bei jedem Aufruf des Skripts ueberschrieben
# Wenn das nicht passieren soll, > durch >> ersetzen!
open(my $fh, '>', $outfile)
    or die "Fehler beim Öffnen der Datei $outfile: $!";

print "Geben sie die URL ein. Eine leere URL beendet die Eingabe!\n";
print "URL:\t";

# Wir lesen von STDIN zeilenweise ein
while ( my $in = <STDIN> ) {
    last if ( $in =~ m/^$/ ); # Abbruch bei einer leeren Zeile
    print $fh $in; # Speichern der eingegebenen URL in die Datei
    print "URL:\t";
}
close($fh);