#!/usr/bin/env perl 
#===============================================================================
#
#         FILE: EinString.pl
#
#        USAGE: ./EinString.pl  
#
#  DESCRIPTION: Eine Datei in eine String hängen.
#
#      OPTIONS: ---
# REQUIREMENTS: ---
#         BUGS: ---
#        NOTES: ---
#       AUTHOR: Martin Talarczyk (MT), talarczyk.martin@fh-swf.de
# ORGANIZATION: FH Südwestfalen, Iserlohn
# Matrikel-Nr.: 10036162
#      VERSION: 1.0
#      CREATED: 22.10.2015 09:19:52
#     REVISION: ---
#===============================================================================

use strict;
use warnings;
use utf8;

binmode (STDIN, ":encoding(UTF-8)");
binmode (STDOUT, ":encoding(UTF-8)");
binmode (STDERR, ":encoding(UTF-8)");
use open ":encoding(UTF-8)";


#-------------------------------------------------------------------------------
#  Variabelen Deklarasion
#-------------------------------------------------------------------------------
my $longString;

#open file
my	$opfp_file_name = 'Rilke-Herbsttag.txt';		# input file name

open  my $opfp, '<', $opfp_file_name
	or die  "$0 : failed to open  input file '$opfp_file_name' : $!\n";


	while(my $line =  <$opfp>)
	{
		$longString = $longString . $line;
	}



#close file
close  $opfp
	or warn "$0 : failed to close input file '$opfp_file_name' : $!\n";

print $longString;