Help for this page

Select Code to Download


  1. or download this
    sub getimage {
 my $self = shift;
...
 open ( IMAGE , $stuff->{image} ) or die "Screaming $!";
 return join '', <IMAGE>;
}
  2. or download this
    #!/usr/bin/perl -w
# foo.pm , to be executed by Apache
...


1;
  3. or download this
    PerlModule Apache
PerlModule foo
...
 SetHandler perl-script
 PerlHandler foo
</Location>