sub hook { my ($filename, undef, $bytes_read, $session_id) = @_; my $conf = IMP::Configuration->new('../../fipo.conf'); my $dbh = new IMP::DB::Wrapper; $dbh->dbConnect($conf); # schreiben des status in die datenbank... $dbh->dbClose; }