my $shared_songs=0;
        opendir (S,$opts{share_dir}) || die "Error opening $opts{share_dir} for sharing: $!";
        foreach my $song (readdir(S)) {
               next unless $song =~ /\.mp3$/;
               $nap_object->share("$opts{share_dir}/$song",1) && $shared_songs++;
        }
        closedir S;