use strict;
use warnings;
use constant LUNGIME => 50;

my $refdesen = sub
{
  my %argumente = @_;
  my $caracter = $argumente {patern} || "-";
  my $contor = $argumente {dimensiune} || LUNGIME;
  return($caracter x $contor);
}; #ATENȚIE ! la caracterul ; care trebuie introdus obligatoriu la sfârșit după }
   #aceasta este o situație particulară în cazul subrutinelor cu referință anonimă.

print "\nAdresa la care poate fi accesata subrutina: $refdesen\n";
print $refdesen->(), "\n";
print &$refdesen(), "\n";
print $refdesen->(patern => '||', dimensiune => 30),"\n";
print &$refdesen(patern => '||', dimensiune => 30),"\n";