package one;

use strict;

sub authenticate {
  my $login = {
                uname => 'rajiv',
                pwd   => 'rajiv'
              };
  _validate($login);
}

sub _validate(){
  my ($login) = @_;

  if(($login->{uname} eq 'rajiv') && ($login->{pwd} eq 'rajiv')) {
    print "Login success";
  }
  else {
    print "Login failed";
  }
}

1;

##</code><code>##

package two;

use strict;

sub _validate(){
  my ($login) = @_;

  if(($login->{uname} eq 'rajiv') && ($login->{pwd} eq 'rajiv')) {
    print "Login success";
  }
  else {
    print "Login failed";
  }
} 

sub authenticate {
  my $login = {
                uname => 'rajiv',
                pwd   => 'rajiv'
              };
  _validate($login);
}

1;