Select Code to Download

# -- prog.pl --
my $run = 1;
...
    quiet => 1,
)->do_status;
print "Status: $stat\n";