Запустите обоими способами и сравните вывод
strace perl server.pl 2>&1 | perl -ne '/open\("(.+)"/;print $1,"\n"' | sort |uniq | xargs ls
Могет быть поможет