Is this happening with just one file or all files you try it with?

use Fcntl "SEEK_END";

print SEEK_END . "\n";
print 1 << 13;
print "\n";'
[download]

The above code should print 2 and 8192,does it?