Select Code to Download

#! perl
use strict;
...
    dd @_;
    print "-END- fn()\n";
}

12:02 >perl 541_SoPW.pl
(1, "Fred")
...
(1, "Barney")

12:02 >