--- a/check_client_cert.pl	Tue Feb 01 14:26:14 2011 +0100
+++ b/check_client_cert.pl	Wed Feb 02 09:50:23 2011 +0100
@@ -35,10 +35,11 @@
 );
 
 my $ME      = basename $0;
-my $VERSION = "0.1";
+my $VERSION = "0.1.1";
 
 sub get_status($);
 sub report($);
+sub version($$);
 
 my %opt = (
     file     => "/root/CLIENT-CERTS/status.dat",
@@ -136,6 +137,20 @@
     }
 }
 
+sub version($$) {
+    my $progname = shift;
+    my $version  = shift;
+
+    print <<_VERSION;
+$progname version $version
+Copyright (C) 2011 by Christian Arnold and Schlittermann internet & unix support.
+
+$ME comes with ABSOLUTELY NO WARRANTY. This is free software,
+and you are welcome to redistribute it under certain conditions.
+See the GNU General Public Licence for details.
+_VERSION
+}
+
 __END__
 
 =head1 NAME
@@ -202,7 +217,7 @@
 
 =head1 VERSION
 
-This man page is current for version 0.1 of check_client_cert.
+This man page is current for version 0.1.1 of check_client_cert.
 
 =head1 AUTHOR