#!/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: $!";
    }
}


##</code><code>##

Can't opendir /media/disk/: Arquivo ou diretório não encontrado at /home/image/Documents/Endoscopia/Dir_Test.pl line 10.
Can't opendir /media/disk-1/: Arquivo ou diretório não encontrado at /home/image/Documents/Endoscopia/Dir_Test.pl line 10.
Can't opendir /media/disk-2/: Arquivo ou diretório não encontrado at /home/image/Documents/Endoscopia/Dir_Test.pl line 10.
Can't opendir /media/disk-3/: Arquivo ou diretório não encontrado at /home/image/Documents/Endoscopia/Dir_Test.pl line 10.
Can't opendir /media/disk-4/: Arquivo ou diretório não encontrado at /home/image/Documents/Endoscopia/Dir_Test.pl line 10.
Can't opendir /media/disk-5/: Arquivo ou diretório não encontrado at /home/image/Documents/Endoscopia/Dir_Test.pl line 10.


##</code><code>##

/media/disk/ opened successfully.
Can't opendir /media/disk-1/: Arquivo ou diretório não encontrado at /home/image/Documents/Endoscopia/Dir_Test.pl line 10.
Can't opendir /media/disk-2/: Arquivo ou diretório não encontrado at /home/image/Documents/Endoscopia/Dir_Test.pl line 10.
Can't opendir /media/disk-3/: Arquivo ou diretório não encontrado at /home/image/Documents/Endoscopia/Dir_Test.pl line 10.
Can't opendir /media/disk-4/: Arquivo ou diretório não encontrado at /home/image/Documents/Endoscopia/Dir_Test.pl line 10.
Can't opendir /media/disk-5/: Arquivo ou diretório não encontrado at /home/image/Documents/Endoscopia/Dir_Test.pl line 10.
##</code><code>##

$ dir /media/disk/
dir: impossível acessar /media/disk/: Arquivo ou diretório não encontrado