#!/usr/bin/perl -w

use strict;
use CGI qw(:standard);

my $q = new CGI;

print $q->header("application/vnd.fdf");
#print "Content-type: application/vnd.fdf\n\n";

print <<RESPONSESTREAM;
%FDF-1.2
1 0 obj
<< /FDF 
  << /Fields 
    [ << /T (name) /V (the name) >>
      << /T (address) /V (address) >>
      << /T (city) /V (city) >>
      << /T (email) /V (email) >>
      << /T (ph_number) /V (ph_number) >>
      << /T (date) /V (date) >>
      << /T (nick_name) /V (nick_name) >>
      << /T (sec_address) /V (sec_address) >>
      << /T (zip) /V (zip) >>
      ]
     /F (https://www.test.com/mytemplate.pdf)
  >>
>>
endobj
trailer
<< /Root 1 0 R >>
%%EOF
RESPONSESTREAM
exit;