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

sub testsub {
	print "Gewonnen! Sub $_[0]\n";
}
return '1';