Select Code to Download

use strict; #always and forever, amen.
use warnings;  #or else.

...
#@ARGV is an array containing the arguments supplied. We're taking the
+ first value.
print "\n$argument"; 
#This here will show you exactly what has been put into $argument.

$bar='Hello,';
...
#will first print out the contents of $bar, then $baz because 
#those are the arguments given.
}

foo("square", 3);

sub foo{
  my ($shape, $size) = @_;
}

C(qw/74 97 104 112/);sub C{while(@_){$c**=$C;print
(map{chr($C!=$c?shift:pop)}$_),$C+=@_%2!=1?1:0}}