sub getDBFile{
        my $self = shift;
        my $q = $self->query;
        my $formData='';
        my $formid=$q->param('formid');
...
        $self->header_props(-type => $type, -attachment => $fileName);
        return $formData;
}