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

sub deseneaza
{
  my %argumente = @_;
  my $caracter = $argumente {patern} || "-";
  my $contor = $argumente {dimensiune} || LUNGIME;
  return($caracter x $contor);
}

my $refdesen = \&deseneaza;
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";