our @ISA = qw(Exporter);
our @EXPORT = qw(EndRub WriteValueToDB );

sub EndRub
{
   #send close command
   $op = SendAndGet_Cmd($test);
   #add status to DB
   WriteValueToDB ($op);
}

sub WriteValueToDB
{
   my ($test) = @_;
   
   #write to DB
    ...
    ....
    ....
}



1;