perl JeGm another pirate,