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