print $q->header(-type=>$type, -Content_Disposition=>"filename=$node->{title}");
print $$data;