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

# dieser Code hier steht in der test_extern.pl
sub testsub {
	print "Gewonnen! Sub $_[0]\n";
}
return '1';