#!/usr/bin/perl

sub brat {
   print "wurst\n";
}

1;