#!/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";
}