Select Code to Download

#!/usr/bin/perl
use strict;
...

print sqrt($i), --$i, $i**2; #  1.7320508075688824
                             ## 1.73205080756888  2  4

#!/usr/bin/perl
use strict;
...
xyzzy "quit doing that!" and nothing happens
Prompt: QUiT
Some version of QUIT, QuIt, quit entered