perl将一个小于256的十进制正整数转换成八位二 进制，具体要求: 1)十进制数从键盘输入，在输入前输出提示信息 “Input a data:”; 2)若转换后的二进制不够八位，则在前面补“0” 3)输出格式为:十进制数 => 二进制数

在Perl中，你可以使用内置函数`oct`或`pack`来将十进制数转换为八位二进制，然后按照题目要求处理。这里是一个简单的示例程序来实现这个功能：

#!/usr/bin/perl
use strict;
use warnings;

print "Input a data: ";
my $decimal_num = <STDIN>;
chomp $decimal_num;  # 移除末尾换行符

# 将十进制转换为8位二进制，并在前面补0，不足8位
my $binary_num = sprintf "%08b", oct $decimal_num;

# 输出结果
printf "%d => %s\n", $decimal_num, $binary_num;

在这个程序中：
- `print` 用于显示提示信息让用户输入。
- `<STDIN>` 用于从标准输入读取用户输入的十进制数值。
- `chomp` 删除输入的末尾空白或换行符。
- `oct` 函数将十进制转换为八进制，因为Perl的`oct`默认为3位，所以这里再通过`sprintf`的格式化字符串"%08b"将其扩展到8位，不足部分用0填充。
- `printf` 显示最终的结果。