use Getopt::Long;
my $line_ending = "\012"; #unix style default
GetOptions( 'windows' => sub { $line_ending = "\015\012" } );
local $/ = $line_ending;