#!/usr/bin/perl
use warnings;
use strict;
open my $in, '<', 'c:\logins.txt' or die $!;
chomp (my @logins = <$in>);
close $in;
open my $out, '>>', 'out.txt' or die $!;
foreach my $logins (@logins) {
my ($login, $passwd) = split ':' => $logins;
syswrite $out, "http://$login.narod.ru\n"
}
close $out