Im not totally clear on what you want to do but is it something like ?:
output($outputType) if ($submit eq 'Preview');
sub output {
#--------------------------------------
my $type = shift;
print "Content-type: text/html\n\n";
print $type;
}
?
....if you are wanting to write to a file then you need to open/close one :)
Code:
output($outputType) if ($submit eq 'Preview');
sub output {
#--------------------------------------
my $type = shift;
print "Content-type: text/html\n\n";
print $type;
}
?
....if you are wanting to write to a file then you need to open/close one :)