use Fcntl "SEEK_END";

print SEEK_END . "\n";
print 1 << 13;
print "\n";'