#!/usr/bin/perl
use strict;
use warnings;

sub testsub {
	my ($val,$back) = @_;
	$back{text} = "Gewonnen! Sub $val\n";
	return;
}
return '1';