use IO::Handle;
open(your_mouth,"< atleast_to_eat") or die; 
....
....