火狐书签转IE书签,求助,将.pl转为.exe文件,谢谢

火狐书签转IE书签,求助,将.pl转为.exe文件,谢谢

use strict;
use warnings;
use Encode;
my %hash;
my ($num,$book_marks,$tag,$dir,$string,$num1,$filename,$url);
$ARGV[0] =~ s|\\|/|g;
open (BK,"$ARGV[0]")||die "can not open file";
$dir=0;
foreach(<BK>){
     if(eof()){last}
     $string = encode("gbk", decode("utf8", $_));
     if($string =~ m/<DT><H3 add_date=[^>]+>(.+)<\/h3>$/i){
         $dir=$1;
         mkdir "$1";
         }
     if($string =~ m/(<\/DL><p>)$/g){$dir="next:directory";}
     if("$dir" ne "next:directory"){
           if($string =~ m/<DT><A HREF=\042([^\042]+).+add_date=.+>(.+)<\/A>$/ig){
                $tag=$2;
                $filename=$2.'.url';
                if($hash{"$tag"}){$filename="$hash{$tag}".$filename}
                $url='url='.$1;
                $hash{$tag}++;
                $filename =~ s|[\|\\\?<>\042:/]||g;
                if(open (OUT,">$dir/$filename")){
                    print OUT "[InternetShortcut]\n";
                    print OUT "$url";
                    close OUT;
                }
                }
                } else {
                    if($string =~ m/<DT><A HREF=\042([^\042]+).+add_date=.+>(.+)<\/A>$/ig){
                         $tag=$2;
                         $filename=$2.'.url';
                         if($hash{"$tag"}){$filename="$hash{$tag}".$filename}
                         $url='url='.$1;
                         $hash{$tag}++;
                         $filename =~ s|[\|\\\?<>\042:/]||g;
                         if(open (OUT,">$filename")){
                            print OUT "[InternetShortcut]\n";
                            print OUT "$url";
                            close OUT;
                            }
                         }
                                     }
                  }
#用法:      perl -f bookmarks.pl  "firefox 书签的完整路径“
#------------------------------------------------------------------------------------------------------------------------------------------------

上面是小弟写的用于将firefox浏览器的书签转化为IE浏览器书签的代码,但我想编译成.exe文件,
我用的是PERL2EXE编译的,但不能用。那位大哥能指点一下吗?先谢谢了!
可以试 cava packager.
我编译了一下,压缩后1.3M,还不算大。呵呵。运行是没问题的。
cava packager到那里下载啊?能否提供个链接 或者简单的介绍一下呢?,非常感谢!
http://www.cava.co.uk/downloads/cavapack13.exe