Select Code to Download

    $TOK_IN = $line;
    pump $TOK while $TOK_OUT !~ /\n\z/;
    print "out: $TOK_OUT";
    $TOK_OUT = '';