use strict;
use warnings;
use VirtualFS::ISO9660;

my $iso = VirtualFS::ISO9660->new(shift);

$iso->opendir(my $dir, '');
my @files = $dir->readdir;

my @array = grep(/\w+/, @files);
print ("$_\n") for(@array);