open FILE, 'test_file.txt' || die "$!\n";
my $text = join( '', @{ [ <FILE> ] } );
close FILE;

die "The file supplied is not of unix format!\n" if ( $text =~ /\r\n/ );