#/usr/bin/perl
use Device::SerialPort;
my $port = Device::SerialPort->new("/dev/ttyUSB0");

$port->baudrate(9600); # Configure this to match your device
$port->databits(8);
$port->parity("none");
$port->stopbits(1);
$port->stty_icrnl(1);
$port->handshake("none") || print "failed setting handshake";
$port->write_settings    || print "no settings";
$port->buffers(4096, 4096);       
@max_values = $port->buffer_max;   
$port->reset_error;

while (1) {

my $char = $port->lookfor();
 if ($char) {
        print "$char\n";
open (DO, '>/home/pi/temp.txt');
print DO $char;
close DO;

    }
    $port->lookclear; # needed to prevent blocking
    sleep (1);
}

##</code><code>##

$port->write("26Jul1998 16:00   P000 0080 CALL  , unit 0\r\n");

##</code><code>##

#/usr/bin/perl

use Device::SerialPort;
my $port = Device::SerialPort->new("/dev/ttyUSB0");

$port->baudrate(9600); # Configure this to match your device
$port->databits(8);
$port->parity("none");
$port->stopbits(1);
$port->handshake("none") || die "failed setting handshake";
$port->write_settings    || die "no settings";

$port->write("26Jul1998 16:00");
sleep(1);
$port->write("   P000 0070 CALL ");
$sleep(1);
$port->write(" , unit 0\r\n");