activeperl pp 打包遇到的问题

C:UsersAdministrator>putx
assertion failed: open my_prog
assertion failed: MZ magic bytes
assertion failed: PE header
assertion failed: IMAGE_NT_OPTIONAL_HDR_MAGIC

D:perl>pp -o "putx.exe"   putx.pl
Set up gcc environment - 3.4.5 (mingw-vista special r3)
Set up gcc environment - 3.4.5 (mingw-vista special r3)
Copyright (C) 2004 Free Software Foundation, Inc.
This is free software; see the source for copying conditions.  There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
	 
#!/usr/bin/perl-w
#使用Net::FTP模块
use Net::FTP;
$ftp = Net::FTP->new(127.0.0.1,Passive=>1,Debug=>1,Timeout=>30) or die "Can not connect to ftp server $ftp_host : $@" ;
	 
	 
	 
尝试 strawberry perl