Select Code to Download

        $_file2dl = Format_Date_For_Viewing($_t1->{d},"mysql_timestamp
+_view") . q~,~ . $_t1->{USERNAME} . q~,~ . "$_t1->{FirstName} $_t1->{
+LastName}" . q~,~ . $_t1->{Phone} . q~,~ . $_state . q~,~ . $_num_ref
+erred . "\n";

        $_file2dl .= Format_Date_For_Viewing($_t1->{d},"mysql_timestam
+p_view") . q~,~ . $_t1->{USERNAME} . q~,~ . "$_t1->{FirstName} $_t1->
+{LastName}" . q~,~ . $_t1->{Phone} . q~,~ . $_state . q~,~ . $_num_re
+ferred . "\n";

    my $type='text';
    my $_format = 'text/csv';
...
    my $file2 = "heavy_hitters.csv";
    print header(-type => $_format, -Content_disposition => qq(attachm
+ent; filename=$file2));
    print $_file2dl;

    my $file2 = "heavy_hitters.csv";
    print header(-type => "text/csv",
-Content_disposition => qq(attachment; filename=$file2));
    print $_file2dl;
    exit;