local $/ = "\r\n";
while (<DATA>) {
   chomp $_;
   print STDERR "'$_'\n";
}