1 #! /usr/bin/perl

     2 

     3 use strict;

     4 use warnings;

     5 

     6 use lib "lib";

     7 use Exim;

     8 

     9 my $exim = new Exim(basename => "exim4", config => "/etc/exim4/exim4.conf");

    10 

    11 print $exim->get("spool_directory");