Select Code to Download

use strict; use warnings; 
use Data::Dumper; 
...

)
;

Data:
$VAR1 = 1;
...
$VAR4 = 4;
$VAR5 = 5;
$VAR6 = 6;