Select Code to Download

# Invoke this script with a numerical argument n, and it
# will append n compressed copies of itself to the file
...
}

close $fh;