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

sub egal () {
};