usr bin perl use warnings use strict open my in logins txt or die chom

#!/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