$ perl ttrap.t
Can't locate object method "getline" via package "FileHandle" at ttrap.t line 12.