Select Code to Download

use CGI qw/:standard/;

...
           end_html();

unshift (@contents, $header, $html);

use strict;
use CGI::Pretty  qw/:standard/;
...
        end_html();

print Dumper \@contents;