#!/usr/bin/perl 

use strict;
use warnings;
use CGI;

my $query=new CGI;
my $mimetype='application/pdf';
my @a="test test test";

print $query->header(-expires=>'now', -type=$mimetype, -disposition=>"inline:filename=sample.pdf", -filename=>'sample.pdf');
print @a;