#!perl -w
use strict;
my $param = shift;
eval print $param;

sub egal () 
{
        my $result;
        my @arg = @_;


        $test = $arg[0];
        @test = grep (/$test/i, @arg);

        print "++++";

        if ($#test == $#arg)
        {
                $result = true;
        }
        else
        {
                $result = false;
        }
        return $result;
}