my $file = "/path/to/file.pdf";
use File::MimeInfo;
my $mime_type = mimetype($file);
print header(-type => "$mime_type", -Content_disposition => qq(attachment; filename="file.pdf"));
open(OUTF,"$file");
while(<OUTF>) {
 print $_;
}
close(OUTF);
exit;