#my $param = 'egal("7006","7006")';
#eval print $param;

sub egal () {
};

egal("7006","7006");