Select Code to Download

use Fcntl qw(O_RDWR O_CREAT);
sysopen TEMPO,"c:\\winnt\\temp\\hash.tmp",O_RDWR|O_CREAT or die "$!";
...
while (sysread TEMPO, $_, 4096){
    print;
}