--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/run	Fri Jul 16 17:12:22 2010 +0200
@@ -0,0 +1,11 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+use lib "lib";
+use Exim;
+
+my $exim = new Exim(basename => "exim4", config => "/etc/exim4/exim4.conf");
+
+print $exim->get("spool_directory");