in reply to insertion of string one time infront of a larger string

How about just putting a print statement in front of the while loop? 
print "eject\t0,0,0 \t";
while (<FILE>) {

[download]
We're not really tightening our belts, it just feels that way because we're getting fatter.

In Section Seekers of Perl Wisdom