print $q->header(
        -type => "application/x-download",
        -'Content-Disposition' => 'attachment; filename="FileNameGoesHere.csv"'
);