Select Code to Download

use strict;   # consider this also
use warnings; # consider this also
...

    print $output $line
}