Sample for perl was added. Fixing global_variables bug.