A hypothetical conclusion?

Berlin.pl

#-------------------------------------------------
# http://www.google.com/#q=pavel+curda+gesche+haas
#-------------------------------------------------

TO_GESCHE_HAAS:
until ($I_have_sex_with_you) {
  say "I will not leave Berlin. Deal?";
  die unless <STDIN> =~ m{yes|ok|fine}ig;

  #she's gotta be kidding me
  die "anyway";
}