Select Code to Download

open(FILE, $file) or die $!;
...
        print FILE @lines;
        close FILE;

$num = $num == 1 ? 3 : 1;