1  package Foo;
2 
3  __PACKAGE__->hello('test1');
4  hello('test2');
5
6  sub hello {
7 	my ($self, $arg) = @_;
8	print "hello=". $arg. "\n";
9  }
10 1;


##</code><code>##

arg=test1
Use of uninitialized value $arg in concatenation (.) or string at line 8