while (<>) {
     # ... your code here ...
}
continue {
     print $_;
}