if ( opendir(DIR,$somedir) ) {
    @x = readdir(DIR);
    closedir(DIR);
}
else {
    # Process an opendir error
}