Select Code to Download

    ...
    for (;;) {
...
        if (fi) {
            if (!fgets(slowo,32,fi)) break;
    ...

...
sub read_sap_response {
...
    exec "sap";
    die $!;
}