Select Code to Download

#!/usr/bin/perl
use strict;
...
sub printme {
   print "x: ", shift, "\n";
}

x: a
x: b