Select Code to Download

#!perl
=pod
...
  [ (),          sub { print 'default' } ]
;

=head1 NOTES

...
;
    print "Done smatching $val\n";
}