Select Code to Download

# Perl Polling Test

# Title: Perl to chipKIT Serial Poll Test
...
  print ($Arduino->receive(), "\n");              # Print poll respons
+e
  sleep(1);                                       # Delay until next p
+oll
}

package Device::SerialPort::Arduino;

use strict;
...

    $self->{'DSP'} = Device::SerialPort->new( $self->{'port'} )
      or croak "Can't open " . $self->{'port'} . " - $!\n";