$self -> {'_serial'} = Net::Appliance::Session -> Transport' => 'Serial');

eval {
$self -> {'_serial'} -> connect('Name' => $uid,
                               'Password' => $pass,
                              'Parity' => 'none',
                              'Line' => $dev_id,
                              'Speed' => $baud_rate);
};

if (@)
{carp "Error: Device $dev_id is already in use};