Select Code to Download

#!/usr/bin/perl

...
} 
print OUT $sHistory if $bInHistory;

use strict;
use warnings;