Select Code to Download

#! perl -sw
use strict;
...
my @lines = split /\n/, $header;

print $_.$/ for @lines;