diff --git a/src/database/redis/custom/perlmod.pm b/src/database/redis/custom/perlmod.pm
index 00da87dc0..333dc50ff 100644
--- a/src/database/redis/custom/perlmod.pm
+++ b/src/database/redis/custom/perlmod.pm
@@ -48,7 +48,11 @@ sub new {
             'password:s'      => { name => 'password' },
             'sentinel:s@'     => { name => 'sentinel' },
             'sentinel-port:s' => { name => 'sentinel_port' },
-            'service:s'       => { name => 'service' }
+            'service:s'       => { name => 'service' },
+            'tls'             => { name => 'tls' },
+            'cacert:s'        => { name => 'cacert' },
+            'cert:s'          => { name => 'cert' },
+            'key:s'           => { name => 'key' }
         });
     }
     $options{options}->add_help(package => __PACKAGE__, sections => 'REDIS OPTIONS', once => 1);
@@ -69,11 +73,14 @@ sub set_defaults {}
 sub check_options {
     my ($self, %options) = @_;
 
-    $self->{server} = defined($self->{option_results}->{server}) && $self->{option_results}->{server} ne '' ? $self->{option_results}->{server} : '';
+    $self->{server} = $self->{option_results}->{server} // '';
     $self->{port} = defined($self->{option_results}->{port}) && $self->{option_results}->{port} =~ /(\d+)/ ? $1 : 6379;
     $self->{sentinel_port} = defined($self->{option_results}->{sentinel_port}) && $self->{option_results}->{sentinel_port} =~ /(\d+)/ ? $1 : 26379;
-    $self->{username} = defined($self->{option_results}->{username}) && $self->{option_results}->{username} ne '' ? $self->{option_results}->{username} : '';
-    $self->{password} = defined($self->{option_results}->{password}) && $self->{option_results}->{password} ne '' ? $self->{option_results}->{password} : '';
+    $self->{username} = $self->{option_results}->{username} // '';
+    $self->{password} = $self->{option_results}->{password} // '';
+    $self->{cacert} = $self->{option_results}->{cacert} // '';
+    $self->{cert} = $self->{option_results}->{cert} // '';
+    $self->{key} = $self->{option_results}->{key} // '';
     $self->{sentinel} = [];
     if (defined($self->{option_results}->{sentinel})) {
         foreach my $addr (@{$self->{option_results}->{sentinel}}) {
@@ -92,9 +99,12 @@ sub check_options {
         $self->{output}->add_option_msg(short_msg => 'Need to specify --service option.');
         $self->{output}->option_exit();
     }
-    if ($self->{username} ne '') {
-        $self->{output}->add_option_msg(short_msg => 'Unsupported --username option.');
-        $self->{output}->option_exit();
+
+    foreach (qw/username cert key/) {
+	if ($self->{$_} ne '') {
+            $self->{output}->add_option_msg(short_msg => "Unsupported --$_ option.");
+	    $self->{output}->option_exit();
+        }
     }
 
     return 0;