################################################## ###
my $macroS1='<G:\1\macros1.txt';
my $macroS2='<G:\1\macros2.txt';
my $macroS3='<G:\1\macros3.txt';
my $macroS4='<G:\1\macros4.txt';
my $macroS5='<G:\1\macros5.txt';
my $macroS6='<G:\1\macros6.txt';
my $macroS7='<G:\1\macros7.txt';
my $macroS8='<G:\1\macros8.txt';
my $macroS9='<G:\1\macros9.txt';
my $macroS10='<G:\1\macros10.txt';
my $macroS11='<G:\1\macros11.txt';
################################################## ###

my $message=newstr(RandomMacros($macroS1).RandomMacro s($macroS2).RandomMacros($macroS3)."\n".RandomMacr os($macroS4).RandomMacros($macroS6).RandomMacros($ macroS7)."\n".RandomMacros($macroS9)).$idid.newstr (RandomMacros($macroS10));