Select Code to Download

our $type;

BEGIN {
    $type ||= shift or die "no type";
}

#!/usr/bin/perl -an

...
} else {
  print "bad type: $type"
}