A "Regular" Perl Script

use IO::Handle;
open(YOUR_MOUTH,"< TO_FOOD") or die;
while($your_face_hole=<YOUR_MOUTH>) {
chomp $your_face_hole;
}
close(YOUR_MOUTH);
open(YOUR_BOWELS,"> TO_THE_TOILET") or die;
YOUR_BOWELS->autoflush(2);
close(YOUR_BOWELS);

Comment on A "Regular" Perl Script

Replies are listed 'Best First'.
Re: A "Regular" Perl Script by greatshots (Pilgrim) on May 07, 2007 at 02:25 UTC
`use IO::Handle; open(your_mouth,"< atleast_to_eat") or die; .... ....` [download]	[reply] [d/l]
< comment deleted > by dynamo (Chaplain) on Jun 22, 2007 at 14:30 UTC
< comment deleted >	[reply]