perl写的小程序

#!/usr/bin/perl
## WwW.52ChB.CoM
##
##
print "-----------+编码转换工具+Net2k的垃圾^_^+-----------";
print "/n/n输入参数(1)十六进制转十进制,什么也不输入ascii码转换成一个unsigned字符:";
$cia=1;
$ci = ;
if($ci==$cia)
{
print "/n########## 十六进制转十进制小程序 ##########";
print "/n请输入需要转换的数值:";
$cinn = ;
chomp $cinn;
$decimal=hex("$cinn");
print "/n$cinn的十进制值是:$decimal";
}else{
print "/n#####ascii码转换成一个unsigned字符######";
print "/n请输入需要转换的ascii码:";
$scann = ;
chomp $scann;
print "/n请输入要转换成的unsigned字符:";
$scanna = ;
chomp $scanna;
$string=pack("$scann",$scanna);
print "$string";
}
exit;