Taki kod spowoduje, że funkcja print przyjmie parametr $_.

$_ = "tekst";
print;

Jeśli będę miał funkcję, to pierwsze jej wywołanie nie przyjmie żadnego parametru. 

sub func(;$)
{
  my ($val) = @_;
  print $val;
}
$_ = "tekst";

func;
func $_;

Co zrobić żeby funkcja "func" przyjmowała domyślnie nieumieszczony jawnie w kodzie parametr $_?