Select Code to Download

#!/usr/bin/perl

...
  puts("testing");
  exit(0); // done
  }

(
  ["Identifier", "main"],
...
  ["Semicolon", ";"],
  ["RightCurly", "}"],
)