sub weirdnessFILE
         {
              my $FILE_name_from_perl = __FILE__;
              $FILE_name_from_perl = substr(
                $FILE_name_from_perl , rindex($FILE_name_from_perl,q[ ]) + 1)
         }