while(my $line = <DATA>){
  ...
}