Someone

while (1 == 1) {

open FIFO, "/home/steve/.tmp/pipe";

foreach (<FIFO>) {
	@args = split / /;
	foreach (@args) {
		print;
	}
	print "\n";
	if (@args[0] == "plane") {
		print "plane @args[1]";
	}
}

}