#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $mw = tkinit();

$mw->Button(
	-text => 'Drück mich!',
	-command => sub{
		print "ausgabe\n";
		warn "warnung\n";
	},
)->pack();

$mw->MainLoop();