--- a/bin/check_tlsa-record	Fri Jun 24 11:55:05 2016 +0200
+++ b/bin/check_tlsa-record	Fri Jun 24 13:44:39 2016 +0200
@@ -126,9 +126,8 @@
         $protocol = 'tcp';
     }
 
-    my $return =
-      Nagios::Check::DNS::check_tlsa_record::main(($domain, $port, $protocol));
-    say $return;
+    say main(($domain, $port, $protocol,$expiry));
+
     exit 0;
 }
 
@@ -142,9 +141,7 @@
             if   ("$+{port}" =~ /^\s*$/) { $port = '443'; }
             else                         { $port = $+{port}; }
 
-            my $return =
-              Nagios::Check::DNS::check_tlsa_record::main(($domain, $port));
-            say $return;
+            say main(($domain, $port, $protocol,$expiry));
         }
         else {
             die "$domainlist has wrong or malformed content\n";
@@ -153,4 +150,20 @@
     }
 }
 
+sub main {
+  my $domain    = shift;
+  my $port      = shift // 443;
+  my $protocoll = shift // 'tcp';
+  my $expiry    = shift;
+
+  if ($expiry) {
+    return Nagios::Check::DNS::check_tlsa_record::main(
+      $domain, $port, $protocoll, $expiry);
+  }
+  
+  return Nagios::Check::DNS::check_tlsa_record::main(
+      $domain, $port, $protocoll);
+
+}
+
 # vim: ft=perl ts=2 sw=2