use strict;
my $deckbox = "/dev/ttyUSB0";
open(DECK, "+<$deckbox") || die('Couldn\'t open GPS');
system("stty -F $deckbox 19200");
while (my $line = <DECK>) {
  print $line;
  print DECK "\$CCPDT,1,4,0,0,3000,1,0,0,0\r\n";
}