$ perl ttrap.t