but I need to go one level up

".." goes one level up, so if $FindBin::Bin is "/foo/poo/current", the path "$FindBin::Bin/.." is interpreted by the OS as "/foo/poo".  So:

use FindBin;
use lib "$FindBin::Bin/..";
[download]