#!/usr/bin/perl

  while (<DATA>) {
    print;
  }

__DATA__
foo
goo
hoo