#./ThisPackage.pm
package ThisPackage;
sub new {
    local $, = ", ";
    local $\ = "\n";
    print __PACKAGE__."::new(@_)";
}
print "Dummy code gets run at compile/use time\n";

1;