Select Code to Download

{ local $\ ;
    # do 'cat' stuff here
}

    while (<FILE>) {
        print $handle $_;
    }

    while (<FILE>) {
        printf $handle $_;
    }