Which means unless the scalar $lengthfile is undefined,

s/undefined/false/

False are: undef, 0, "0", ""

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$
[download]