Hmm, in the interest of further promoting perl: @L = <stdin>; print pop(@L) while $#L+1; # Read FIFO, Write LIFO! -- Yours, etc., Tony Olekshy (...!alberta!oha!tony or tony at oha.UUCP).