foreach my $folder (@folders) {
    next if $folder =~ /^\.\.?/;
    my $fqname = catdir( $output, $folder );
    if ( -d $fqname ) {
        if ( ( glob("$fqname/*.cue") ) ) {
            print "$fqname:  cue found\n";

        }
        else {
            print "$fqname: cue found\n";
            my ($cue) = <$fqname/*.cue>;
            my ($mp3) = <$fqname/*.mp3>;
            &process( $cue, $mp3, $fqname );

            remove qw(*.cue *.m3u *nfo *.sfv);
            &renameFolder($folder);