here's my solution

opendir(DIR, "\.");
@filelist = readdir(DIR); 
closedir(DIR);

$filelist = @filelist;
$i = 0;

for(;;){
        if(defined $filelist[$i]){ 
            print "$filelist[$i]\n";
        } else {
            exit;
        };
        $i++;
}
[download]