sub domainmd5 {
	my ($exp, $domainexp, $pathfile, $file) = @_;
	my (@md5subout, $md5subout);
	$exp->clear_accum();
	$exp->expect( $timeout, [qr/$domainexp/ => sub {my $exp1md = shift; $exp1md->send ("md5sum $pathfile\r");} ], );
	$exp->expect( $timeout, [qr/$domainexp/ => sub {my $exp1md = shift; @md5subout = $exp1md->exp_before(); } ] );
	my @splitarray = split (/[\r\n]+/, $md5subout[0]);  ### Multiple \r and \n detected in the output.
	my @greparray = grep ( /$file/, @splitarray );	
	my @foundmd5 = split(/ +/, $greparray[0]);
	$md5subout = @foundmd5[0];
print "Hier md5: $md5subout\n";
	return ($md5subout);
}