Flush i Perl

Ved ikke om der lige netop er en flush funktion, men du kan styre dit output ved at lægge alt ned i en variabel som du først skriver ud når du er sikker på du er klar. Den kan så nulstilles, hvis der skal "flushes".

Ex:
my $doc = "";
$doc = "Content-type: text/html\n\n";
# Flush
$doc = "";
$doc = "Content-type: text/plain\n\n";
$doc .= "This is plain text!";

print $doc;
exit;

"Content-type: text/htmlnn" og "Content-type: text/plainnn" skulle have haft backslashes foran de to sidste n'er, men det kan ikke vises i html :-)