Select Code to Download

printf("");
sleep();
print("");

{
  local $/ = ";"; # local means perl will restore the value of $/ at t
+he end of the block
                  # and the default behaviour when reading a file
...
     }
  }
}