SYNOPSIS

perl filelist.pm /path/to/dir

eval "use lib '$root_path./stat/pslib'"; eval "use lib '$root_path./../../../examples/stat/pslib'; use psmisc; use pssql; use Net::DirectConnect; use base 'Net::DirectConnect'; "; #use Net::DirectConnect; #psmisc::use_try ('Net::DirectConnect');

        $self->{share_full}{$tth} = $full_local, $self->{share_tth}{$full_local} = $tth, $self->{share_tth}{$file} = $tth,
          if $tth;
        $self->{share_full}{$file} ||= $full_local;

POD ERRORS

Around line 27:

Unknown directive: =tofix

Around line 230:

Unknown directive: =cu

Around line 442:

Unknown directive: =old

Around line 601:

Unknown directive: =z