Select Code to Download

use File::Path;
use warnings::register;
...
     or warnings::warnif "Err:$@")[0]);
   @c
}

select((select(STDERR),$|++)[0]); # autoflush STDERR