BEGIN {push @INC,'..'}
use EPMS;

但更好的解决方案是使用lib，这是一个更好的方式写上面的：

use lib '..';
use EPMS;

但是，如果您从不同的目录运行，建议使用FindBin：

use FindBin;                     # locate this script
use lib "$FindBin::RealBin/..";  # use the parent directory
use EPMS;