Help for this page
our $type; BEGIN { $type ||= shift or die "no type"; }
#!/usr/bin/perl -an ... } else { print "bad type: $type" }