added js and perl for past plot