open my $FH, '<', $mails or die "Nie moge otworzyc pierwszego pliku";
while ( <$FH> ) {
  chomp;
  my ($username, $password) = split /:\s*/;
  checkdomain($username);
}