STDIN -> STDOUT, just as the others said... You might consider just putting a #!/usr/bin/perl -p at the beginning of your program and thus skipping the whole while (<STDIN>) { ... } loop.

Also, you can say :%!program to mean the whole file should be filtered, instead of :1,$!program. Just a couple fewer keystrokes is all.