--- a/check_tlsa	Mon May 02 23:11:59 2016 +0200
+++ b/check_tlsa	Mon May 02 23:12:13 2016 +0200
@@ -18,7 +18,7 @@
 
 use strict;
 use warnings;
-use feature qw(switch);
+use feature qw(switch say);
 use if $^V >= v5.020 => (experimental => qw(smartmatch));
 use experimental qw(smartmatch);
 use Monitoring::Plugin;
@@ -27,8 +27,6 @@
 #devel
 use Data::Dumper;
 
-use constant LF => "\n";
-
 my $VERSION = '0.1';
 my $blurb   = 'This Plugin is intendet to check TLSA Record';
 my $url     = 'https://schlittermann.de';
@@ -109,7 +107,7 @@
     my $excuse = "Please set -H <domain> or -f <domainlist>\n"
       . "For all options try $script --help";
 
-    print $excuse, LF;
+    say $excuse;
     exit 1;
 }