No, you need a content-type header. the header need to send out, before the content.

#!/usr/bin/perl

use CGI qw(:standard);
use strict;

sub printpage();

print header( -type => 'text/html');
printpage();
exit;
[download]