Select Code to Download

#!/usr/bin/perl
##################
...
    $slut->bytes_i =+ length($buff);
    #$slut->bytes_o =+ length($data);
}

#!/usr/bin/perl
##################
...
        print "Not Ready!\n";    
    }
}