my $artistdir=opendir(DIR, '..');
     my $albumdir=opendir(DIR, '.');
     print "$artistdir\n";
     print "$albumdir\n";