our $type;

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