use PersistentPerl;
PersistentPerl->setopt('timeout', 1);
print $$;