package test_package;

sub func
{
  print "VALS: @_\n";
  my $val=@_>1?$_[1]:$_[0];
  print "VALUE:$val\n";
}

package main;

test_package->func('test1');
print "###############################\n";
test_package::func('test2');