while( <main::DATA> ) {
  print $_;
}

__END__
Zeile 1
Zeile 2
Zeile 3