406     my $buffer_size = 1024;
    407 
    408     my $on = 0;
    409 
    410     while (sysread(ORGINAL, my $buffer, $buffer_size)) {
    411         syswrite(ENCRYPTED, $cipher->crypt($buffer));
    412 
    413         $on += $buffer_size;