foreach my $link(@links){
print $link."\n";
print DATEI "$link\n";
}