package Perl::Community::DE;

sub user{
  my ($nick) = @_;
  if($nick eq 'webmaster'){
    $nick = 'Strat';
  }
  return $nick;
}

1;

#!/usr/bin/perl

use strict;
use warnings;
use Perl::Community::DE;

my $check = Perl::Community::DE::user('Strat');
my $user = Perl::Community::DE::user('webmaster');

if($user eq $check){
  print "webmaster eq strat";
}