LINE:
    while (<>) {
        # your code goes here
    } continue {
        print or die "-p destination: $!\n"; 
    }