added perlnow, removed unused stuff