sub incl {
    # package eins; # hin oder her
    print ++our($i), "\n";
}