sread com2 -r 9600 | perl win_currentcost.pl