opendir(DIR, "/home/test");
@files = readdir(DIR);
closedir(DIR);
 
 
foreach $file (@files) {
    next if ($file eq "." or $file eq "..");
 print $file;
}
 

For More detailed work on this can be found on below Link

http://www.perlmonks.org/?node_id=489552