Select Code to Download

open(sense,"java Listen -port /dev/ttyUSB0:115200 |")|| die "Failed to
+ listen";
while(<sense>)
...
    $currentline= $_;
    print ("Line $currentline");   
}

print stdout "$data";

open(sense,"./read_serial.pl |")|| die "Failed to listen";

system ("./read_serial &");
open(sense,">- |") || die "Failed to listen";