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

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

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

use File::Copy;
$inputfile = "E:\\Perl Builder2\\pbuilder.exe";
$crackfile = "E:\\Perl Builder2\\pbuilder_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, 0x13b4f, 0;
print  INPUTFILE $newdata;
print "修改完成，现在可以无限次试用了！\n";
close INPUTFILE;

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

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

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