Printing a file in Perl

The following code will print a file to standard output. When responding to client queries through the webserver, whatever is printed to the standard output is sent to the client computer by the web server.

#!/usr/local/bin/perl

print "Content-type: image/gif","\n\n";  #MIME header for web server

open(GIFILE,"perl1.gif") || die "<center>

  <H3>Cannot open gif file.</H3></center>";

while (read(GIFILE, $buf, 8192))

{

   print $buf;

}

This Example prints an HTML file to the standard output and thereby sends it to the client web browser:

#!/usr/bin/perl

# ospoll.pl

# A Perl program that draws a Web page.

print "Content-type: text/html", "\n\n";      # MIME header.

open(HTMLFILE, "ospoll.html") || die "

  <center><H3>Sorry, I cannot open HTML pollfile.</H3></center>";

while (read(HTMLFILE, $buffer, 16384))  #Print the Poll HTML file

{

    print $buffer;

}

close(HTMLFILE);

# End ospoll.pl