#!/usr/bin/perl -w
use CGI;
use strict;

print <<test_header;
    Content-type: application/msexcel
    Content-Disposition: attachment; filename= test.xls
ID;PWXL;N;E
P;PGeneral
P;P0
P;P0.0
P;P0.00
test_header

##</code><code>##

print <<test_header;
    
    Content-type: application/msexcel
    Content-Disposition: attachment; filename= test.xls
ID;PWXL;N;E
P;PGeneral
P;P0
P;P0.0
P;P0.00
test_header