Select Code to Download

sub recv_data{
    if(read_some_data){
...
        return;
    }
}

>perl -le
"use warnings FATAL => 'all';
...
8 7
6 5
Use of uninitialized value $x in concatenation (.) or string at ...