if(open(FH, "<$filepath")) {
	print "Content-Type:$mimetype; name = \"$filename\"\n";
	print "Content-Disposition: attachment; filename = \"$filename\"\n\n";
	while( my $line = <FH>) {
		#I am chomping then adding new lines because the UNIX line feeds are not
		#recognized on some winderz computerz apps. This is why I strip the UNIX line
		#feed (\n) and then add a Windows line feed (\r\n)
		if($mimetype eq 'text/plain') {
			chomp($line);
			print $line, "\r\n";
		} else {
			print $line;
		}
	}
	close(FH);
	print "EOF\n\n";
	exit;
} else {
	&error_page;
}