#! /usr/bin/perl

use ExtUtils::testlib;
use Mytest;         #hiermit wird Mytest.pm geladen

Mytest::print_hello_retval();  #Laden einer Funktion aus Mytest.xs
print "Three times 32 is ", Mytest::treble(32), "\n";
my $testwert = neue_funktion();
print "Testwert: $testwert\n";
my $str1 = "Das ist";
my $str2 = "ein Test";
my $outstr;
my $len = Mytest::strconcat($str1, $str2, $outstr);
print "$len\n";

sub neue_funktion {
	my $wert = 6;
	print "6+22*5-10/2 wird berechnet...\n";
	my $rueckgabewert = Mytest::berechne($wert);

	return $rueckgabewert;
}