Help for this page

Select Code to Download


  1. or download this
    open (FILE, "$file") || die "Can't open $file";
$tmp=<FILE>;
...

while (<FILE>) {
    $tmp=$_;
  2. or download this
    seek(FILE,0,0);
  3. or download this
    #!/usr/bin/perl
use strict;              # Should always use this
...
print "Content-type:text/html\n\n";
print $template->output();
exit;
  4. or download this
    <html><body bgcolor="<tmpl_var name=bgcolor>">
Hey I can change the background!</body></html>