Help for this page

Select Code to Download


  1. or download this
    sub send_file {
    my ($cgi, $dir, $file) = @_;
...
    return;
    
} #END SUB send_file
  2. or download this
    my $in_fh;

...
    print while <$in_fh>;   

close($in_fh) || die "couldn't close $path: $!";
  3. or download this
    my $BUFSIZ   = 64 * (2 ** 10);
my ($in_fh, $buffer);
...
}

close($in_fh) || die "couldn't close $path: $!";