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

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