use FindBin ();
use File::Spec::Functions qw/catfile/;
...
$p->parse_file(catfile($FindBin::Bin,qw/ .. lib Pod Simple Select.pm /));