#! /usr/bin/perl
while ( <> ) {
    }
continue {
    print
    }
__DATA__
hello
goodbye