$ perl ttrap.t
required