#!/usr/bin/perl
 
 # ---- Settings ----
 # TemporaryDirectory in clamd.conf
 my($TMPDIR)='/tmp';
 # How long to wait for next part of RFC1341 message (seconds)
 my($cleanup_interval)=3600;
 
 # ---- End of Settings ----
 
 my ($partial_dir) = "$TMPDIR/clamav-partial";
 #  if there is no partial directory, nothing to clean up
 opendir(DIR, $partial_dir) || exit 0;
 
 my ($cleanup_threshold) = time - $cleanup_interval;
 while(my $file = readdir(DIR)) {
 	next unless $file =~ m/^clamav-partial-([0-9]+)_[0-9a-f]{32}-[0-9]+$/;
 	my $filetime = $1;
 	if ($filetime <= $cleanup_threshold) {
 		unlink "$partial_dir/$file";
 	}
 }
 closedir DIR;