The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

def main(cmdvar=s) {
  split1 $ENVVAR $cmdvar
}

def split1() :perl {
  print "$ARGV[0]:$ARGV[1]\n";
}