#!/usr/bin/perl
while (<STDIN>) {
  # do something
  print "output\n";
}