in reply to Perl 101 Problem

Wow--that version of Perl is over a decade old! You might want to upgrade to a more recent perl...

Also, you should always check the return value of open():

open(FILE,$filename) || die "Can't open '$filename': $!";
That should work under Perl 4.