Select Code to Download

use strict;
use warnings;
...
$based_on ||= 'tp';
$top ||= 1;
print "$based_on $top\n";