why do i get a file download prompt?

[Gary Jennings]

Hi;

I get a file download prompt when I run the following script. Can anyone let
me know why? I am simply trying to print the contents of  a file. Thanks.

#!/usr/bin/perl
print "content type: text/html\n\n";
$file = "mydatabase";
open (myfile,"$file");
$recs = <myfile>;
while ($recs ne "")
{
print $recs;
$recs = <myfile>;
}
close (myfile);
exit;