Select Code to Download

#!/home/sam/bin/perl

...
    $PANEL{"$self->{elevator}.$self->{dest}"} = 0;
    $self->{floor} = $self->{dest};
}

#!/home/sam/bin/perl

...
    lock %DOOR;
    $DOOR{"$self->{id}.$self->{floor}"} = 0;
}