Select Code to Download

#!/usr/bin/perl
package main;
...
   my $self = shift;
   print "Here is another namer","\n";
}

From test1
Can't call method "print_name" without a package or object reference a
+t ./ll.pl line 27.