#!/usr/bin/perl -w

$file = shift(@ARGV);

open(FILE,$file);

undef $/;
$data = <FILE>;
close(FILE);

$data =~ s/\r/\n/msg;
print $data;