Select Code to Download

sub read {
    my ($device) = shift;
...
    my $status = &write_port_data ($device);
    return $status;
}

The process 1:
20MAR2011 16h15m28s <============ read entry
...
Key <= script1 
Key <= script2
20MAR2011 16h15m41s <==========End TIME IN WRITE