#!/usr/bin/perl

use strict;
use warnings;

#use LWP::Simple;

while(<DATA>) {
  my $url = 'http://www.nummer.de/cgi-bin/nummer-daten?Aktion=Einzel&Dokumenttyp=Beitraege&Dokumentkennung=';
  $url .= $_;
  my $file = "file_".$_;
  #getstore($url, $file);
  print $url, "\n";
}

_ _DATA_ _
122
123
141
156