use FindBin;
my $file1 = "$FindBin::Bin/findorder.prop";
-f $file or die "Error: file '$file' gibbts nicht\n";
...