#!/usr/local/bin/perl

$dir = "/Infoserver/firstdirectory/seconddirectory/mydirectory";  
opendir(DIR, $dir) || die "Can not open: $!\n";
while(defined ($file = readdir DIR))
{
    print "$file\n"
}
closedir(DIR);