延长Perl Builder 2.0的使用时间

? 小弟我最近学习Perl，书本上推荐了一款工具叫 Perl Builder。于是我从官网下载了一个回来，感觉还好，有语法高亮，还可以调试，这两个功能对我来说就已经够了，其他的功能我还不会用。不过下回来的是试用版，15天之后就不可以使用了，得购买，于是乎，我就写了下面的脚本，可以试用多少天都可以，但是各种提示你购买的框框还是在的。

? Perl的二进制操作真是蛮烦啊，pack，unpack花了好几个小时看了这篇帖子，才有点眉目：
? http://www.perlmonks.org/?node_id=224666

? 下面的脚本针对的是 2.0版本的：
?

use File::Copy;
$inputfile = "E:Perl Builder2pbuilder.exe";
$crackfile = "E:Perl Builder2pbuilder_crack_1.exe";
copy($inputfile,$crackfile);
#把文件备份到pbuilder_crack_1.exe，下面是对这个文件的操作。

open INPUTFILE,"+<$crackfile";
binmode INPUTFILE;
seek INPUTFILE,0x13b4f,0;
read INPUTFILE,$data,1 ;
die "数据不匹配！" if ord($data) != 126;
#数据不匹配退出。 
$newdata = pack("H2","eb");
seek INPUTFILE,0;
print  INPUTFILE $newdata;
print "修改完成，现在可以无限次试用了！n";
close INPUTFILE;

========================================================
?为了方便广大Perl爱好者，我提供我修改过的，保留购买按钮，可以让支持正版的同志购买

1）去掉启动时显示的两个窗口，直接进入主界面
2）无限次试用。

下载地址：http://pan.baidu.com/s/1y1x2l 下载后放在安装目录即可（pbuilder.exe同一位置）。