entering text within a file

[DBSMITH]

All, 

I am having some trouble figuring this out.  I want to enter some text 
within a pre-existing file.  Here is what the file would look like

E00140
E00141
E00143
.
.
.


here is my code thus far

#!/usr/local/bin/perl -w
use strict;
my $ejectapes = "/usr/local/bin/perld/exports"; 
open (ACSLS, "$ejectapes") || die "cannot open file ejectapes \n: $!";
while (defined($ejectapes = <>)) {
print "eject", "\t", "0,0,0", "\t", "\n", $_;
close (ACSLS);
}


I want to print eject 0,0,0 before the tapeid

thanks again!

Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams