--- check_varnish.pl.orig	2014-07-22 11:12:36.141550908 +0200
+++ check_varnish.pl	2014-07-22 11:15:45.898193885 +0200
@@ -28,11 +28,14 @@
 
 # Parse command line options
 my @specs;
+my $instancename = $ENV{HOSTNAME};
 my ( $list, $help );
+
 GetOptions(
     "spec|s=s" => \@specs,
     "list|l"   => \$list,
-    "help|h"   => \$help
+    "help|h"   => \$help,
+    "instancename|n=s"  => \$instancename
 );
 
 # Print help if they asked for it
@@ -41,7 +44,7 @@
 }
 
 if ($list) {
-    print_list();
+    print_list($instancename);
 }
 
 # Global vars that hold the parsed varnishstat output
@@ -57,7 +60,7 @@
     print_help();
 }
 
-parse_varnishstat();
+parse_varnishstat($instancename);
 
 foreach (@specs) {
 
@@ -154,8 +157,9 @@
 
 # Turn the varnishstat output into a Perl hash
 sub parse_varnishstat {
+    my ($instancename) = @_;
 
-    open (VARNISHSTAT, "/usr/bin/varnishstat -1 |");
+    open (VARNISHSTAT, "/usr/bin/varnishstat -1 -n" . $instancename .  " |");
 
     while (<VARNISHSTAT>) {
         s/\s+/ /g;    # normalise spaces
@@ -216,8 +220,8 @@
 
 Usage:
 
-	check_varnish.pl --spec=[spec definition] --spec=[spec definition]
-	check_varnish.pl --list
+	check_varnish.pl [--instancename=instance ] --spec=[spec definition] --spec=[spec definition]
+	check_varnish.pl --list [--instancename=instance ]
 	check_varnish.pl --help
 
 Options:
@@ -254,6 +258,9 @@
     --help
         Displays this message.
 
+    --instancename
+	name of varnish instance
+
 check_varnish.pl comes with absolutely NO WARRANTY either implied or explicit
 This program is licensed under the terms of the
 GNU General Public License (check source code for details)
@@ -265,10 +272,11 @@
 }
 
 sub print_list {
+    my ($instancename) = @_;
 
     # Print a list of all the varnishstat counters
     # and their (sometimes meaningless!) description
-    parse_varnishstat();
+    parse_varnishstat($instancename);
 
     if ($list) {
         print "\nAvailable Varnish performance counters:\n\n";