Umm, I don't believe you want the "-n" in there, as that inserts a loop around your entire script body that makes your particular script not work. See perlrun. Without it the script seems to work just fine.