让Perl命令行显示的内容可以'标记'、粘贴

523066680

linux用户没有这个问题，
cmd调用perl 脚本的话，上面显示的内容也可以直接
       鼠标右键-标记  ，选中指定区域，再点一次，就复制上面显示的文本了。
但是如果直接双击执行 xxx.pl  无法直接在字符上点鼠标右键
可以在脚本前面加一句：  system("");  即可。
（虽然该system没有执行任何cmd命令，不过现在可以像cmd一样直接标记、粘贴 了^_^）