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

##</code><code>##

print stdout "$data";

##</code><code>##

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

##</code><code>##

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