perl laboratory