use strict;
use warnings;

my $log = "ich bin der log!";

print "vor funktion\n";
funktion($log);
print "nach funktion\n";

sub return_me  {
  my ($log) = @_;
  print "$log\n";
  return;
}

sub funktion {
  print "in funktion!\n";
  goto &return_me;
  print "ich werde nicht ausgedruckt!";
}