Select Code to Download

#!/usr/bin/env perl

...
  my $ele = shift;
  print "Woot -- $ele --\n";
}

Woot -- ABCD --
Woot --  1234 --