The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Cwd;

die "No CLAMD_PATH environment!" unless $ENV{CLAMD_PATH};

open(CONF, ">clamav.conf") || die "Cannot write: $!";

my $dir = cwd;

print CONF <<"EOCONF";
LocalSocket $dir/clamsock
Foreground
MaxThreads 1
ScanArchive
ArchiveMaxFileSize 1M
ArchiveMaxRecursion 1
ArchiveMaxFiles 2
  
EOCONF

close CONF;