perl Net::SIP tls protocol

[MohammedTayeh1993]

i try to mke tls register in perl net::sip

i need any one fix my code or give me some example
this is my code
i do not have any one from this
SSL_cert_file
SSL_key_file
SSL_ca_file

@noxxi
@manwar
@dsteinbrunner
@mfalkus
@bluhm

my $ip  = "";
my $port = "";
my $user = "";
my $pass = "";
my $proto = "tls";


my $sock = IO::Socket::INET->new(
    Proto    => $proto,
    PeerAddr => $ip,
    PeerPort => $port,
) || exit;
my $leg = Net::SIP::Leg->new(sock => $sock)|| exit;


# create new agent
 my $ua = Net::SIP::Simple->new(
  outgoing_proxy => $ip,
  registrar => $ip,
  domain => $ip,
  from => $user,
  auth => [ $user,$pass ],
   leg => $leg
)|| exit;

$ua->register( expires => 1800 );
my $err = $ua->error; 
print $err; 

[marekr]

This is not a perl repo....

[MohammedTayeh1993]

This is not a perl repo....

i dont understand you
it is perl
and i need help
for my code