use CGI qw/header/;

print header(-type => 'application/pdf',
		 -content_disposition => 'inline'
);

##</code><code>##

use PDF::Create;

my $pdf = new PDF::Create( #'filename' => 'test.pdf', 
			  'fh'    =>  *STDOUT,
			  'Version'  => 1.2,
			  'PageMode' => 'UserOutlines',
			  'Author'   => 'test',
			  'Title'    => 'Invoice...'
			  );