Select Code to Download

open(FILE, $0)
   or die("Unable to open $0: $!\n");
...
print("Bytes requested: ", -s FILE,      "\n");  # 580
print("Chars read:      ", $read,        "\n");  # 580
print("Chars read:      ", length($buf), "\n");  # 580