#!/usr/local/bin/perl -w
open(FD,"a|");
while (<FD>) {
  print $_;
}