{
        package IterTest; 
        use overload '<>' => \&iterator, fallback => 1;
        
        my $x = 0;
        
        sub new {
                return bless {}, shift;
        }
        
        sub iterator {
                print "Angefragt!\n";
                if ($x++ < 10) {
                        return $x;
                }
                else {
                        return undef;
                }
        }
}

my $test = IterTest->new();
for my $num (<$test>) {
        print "$num\n";
}