Help for this page
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;