$sig4->repeat(100,\&handler);

sub handler {
my $data = $port->lookfor;
return unless $data;
print STDOUT "$Message Received: (" . $data . ")\n";
exit; # THIS WAS ADDED TO MAKE SURE THE CODE DOES WORK...IT DID WORK AND THE PROGRAM EXITED
}