open(FILE, $0)
   or die("Unable to open $0: $!\n");

$read = read(FILE, $buf='', -s FILE);

print("Character mode:\n");
print("Bytes requested: ", -s FILE,      "\n");  # 580
print("Chars read:      ", $read,        "\n");  # 560
print("Chars read:      ", length($buf), "\n");  # 560

seek(FILE, 0, 0);
binmode(FILE);
print("\n");

$read = read(FILE, $buf='', -s FILE);

print("Bin mode:\n");
print("Bytes requested: ", -s FILE,      "\n");  # 580
print("Chars read:      ", $read,        "\n");  # 580
print("Chars read:      ", length($buf), "\n");  # 580