Select Code to Download

use Benchmark qw/cmpthese timethese/;
my (@array,%handle);
...
print $fh $string;
close $fh unless ($opts->{'noclose'});
}