#!/usr/bin/perl -w
use strict;

for my $i (0..5) {
    my $dir = $i ? "/media/disk-$i/" : "/media/disk/";
    if (opendir my $dh, $dir){ 
        print $dir," opened successfully.\n";
        closedir $dh;
    } else {
        warn "Can't opendir $dir: $!";
    }
}