Adding mouse and perl FT