#!/usr/bin/perl -l

use strict;
use warnings;
use Device::SerialPort qw( :PARAM :STAT 0.07 );

$| = 1;

my $port = '/dev/tty24';
my $conf = '~/.conf';
my $ob = Device::SerialPort->new($port, 1)
    || die "Can't open $port: $!";
    
my $STALL_DEFAULT = 10;
my $timeout = $STALL_DEFAULT;

my $arb  = $ob->can_arbitrary_baud;
my $data = $ob->databits(8);
my $baud = $ob->baudrate(115200);
my $parity = $ob->parity("even");
my $hshake = $ob->handshake("rts");
my $stop = $ob->can_stopbits;
my $rs = $ob->is_rs232; 
my $total = $ob->can_total_timeout;

$ob->stopbits(1);
$ob->buffers( 4096, 4096 );
$ob->can_baud;
$ob->can_databits;
$ob->can_dtrdsr;
$ob->can_handshake;
$ob->can_parity_check;
$ob->can_parity_config;
$ob->can_parity_enable;
$ob->can_rtscts;
$ob->can_xonxoff;
$ob->can_xon_char;
$ob->can_spec_char;
$ob->can_interval_timeout;
$ob->can_ioctl;
$ob->can_status;
$ob->can_write_done;
$ob->can_modemlines;
$ob->can_wait_modemlines;
$ob->can_intr_count;
$ob->write_settings;

print 
"A = $arb\n",
"B = $baud\n",
"D = $data\n", 
"S = $stop\n",
"P = $parity\n",
"H = $hshake\n",
"R = $rs\n",
"T = $total";

$ob->write_drain;
$ob->close;
undef $ob;
[download]

You may want to look at the 3 parameter 'open'.

open( $com, "+<","/dev/ttyUSB0" ) || die "Cannot open serial port : $!
+\n";
while( 1 )
{   my $in = <$com>;           # input

    # do stuff here ( You should be able to do both input and output w
+ithin the loop. 

    print $com "...";          # output

    if ( $in eq "quit" ) { last; }
}
[download]

The default behavior of a 2 parameter 'open' is output only. Look at the documentation for open for more information. Also look at 'read/write' and 'sysopen/sysread/syswrite' if you need to input/output a specific number of bytes. ( Especially if your going to pad with the "\0" null character. )

Good Luck.

I haven't done a lot of read/writing to ports so I don't know if my answer will be the best. But instead of keeping the handle open all the time, could you do a periodic poll?

while(1) {
  open( COM, "/dev/ttyUSB0") or die "Can't read serial port : $!\n";
  while(<COM>) {
    # stuff
  }
  close(COM);
  sleep(1);
}
[download]

However, I'm not sure what about Device::SerialPort is overkill to you. Seems like a pretty simple implementation to me. Here's an example of it being used (which also uses a sleep): http://www.windmeadow.com/node/38

My guess is, after much googling, that the port is being blocked by the open command/while loop and making it to where I can't use another script to open the same port for write access. There are a number of Event modules in perl for handling event-driven communications, but after reading some posts here, seems like overkill for my simple app

it may seem that way, but you need something to arbitrate between the different processes contending for a given resource; a serial port can only do one thing at a time. While you can try leaving it up to the OS, without any guidance, the OS is most likely going to fall back on something simple/stupid like "first process that gets there monopolizes it until it's done", which is evidently what you're seeing.

My guess is select() is what you want. It may be annoyingly low level, but it was explicitly intended for this kind of situation, it's one of the builtins, thus guaranteed to be there, and it's a fairly old feature (read battle tested).

Or you can grab somebody's event module...