use strict;
use warnings;

package dir_test;

for (my $i=0;$i<=5;$i++){
	if ($i==0 and opendir (MYDIR, "/media/disk/.")){
		print "/media/disk/","\n";
		closedir (MYDIR);
	} else {
		if ($i>0 and opendir (MYDIR, "/media/disk-$i/.")){
			print "/media/disk-$i/","\n";
			closedir (MYDIR);
		} else {
			print "not /media/disk-$i/","\n";
		} 
	}
}