Select Code to Download

 open (my $st_in, "<&STDIN");
    open (my $out, '>&', STDOUT);
    open (my $err, '>&', STDERR);
...
    $book->raise("Sheet 1") if ($re_run_csv);
    $Sbook->raise("$regl_name $nn");
    $mw->fileevent($reg_out, 'readable', [\&fill_text_widget,$regl_nam
+e,$nn]);