Select Code to Download

share_dir->'/foo/bar/'

my $shared_songs=0;
        opendir (S,$opts{share_dir}) || die "Error opening $opts{share
+_dir} for sharing: $!";
...
               $nap_object->share("$opts{share_dir}/$song",1) && $shar
+ed_songs++;
        }
        closedir S;