Select Code to Download

    $| = 1;

#
#  progress_bar
...

    return $c_prog;
}

use strict;
use warnings;
...
}

$c_prog->();