Select Code to Download

@examples = split /\n/, <<'EXAMPLES';
sin / ...
...
    $a = $@ if $@;
    print "$_\n\t$a\n";
}