Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w

...
        <br />
START
}
  2. or download this
    open (OUTFILE,">>/tmp/file");
binmode(OUTFILE);
while ($bytesread=read($filename,$buffer,1024)) {
print OUTFILE $buffer;
}