#! /usr/bin/perl

my $directory = '/var/log/cr_user/';
opendir DIR, $directory or die $!.$/;
my @files = readdir(DIR);
closedir DIR or warn $!.$/;

for my $file  (@files) {
    open FILE, $file or die $!.$/;
    my ( $username, $domain, $email, $service ) = split /,/, <FILE>;

print "$username";

    close FILE or warn $!.$/;
    unlink $file;
}