Select Code to Download

my $port = Device::SerialPort->new("/dev/ttyS0");
die "Can't open /dev/ttyS0: $!" if ! defined $port;