#!/usr/bin/perl -w
open (IN, "<h.txt") || die "Die Datei wurde nicht gefunden\n";
while (<IN>)
	{
	print $_;
	
	}
close (IN);