在perl 、将小于n（n由用户输入确定）的所有个位数不等于5的素数（素数：只能被1和本身整除的整数）在屏幕上打印，具体要求： 1）n的具体值由用户输入来确定，且输入提示"Inputn：”； 2） 分行显示，每行输出6个数。（不使用函数）

在Perl中，你可以编写一个简单的程序来实现这个需求。首先，你需要从用户那里获取输入值`n`，然后检查并打印所有小于`n`且个位数不为5的素数，每行打印6个。以下是一个基本的示例：

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

print "Input n: ";
my $n = <STDIN>;
chomp($n);   # 移除末尾的换行符

sub is_prime {
    my $num = shift;
    return 0 if $num <= 1;      # 1不是素数
    for my $i (2 .. sqrt($num)) {
        return 0 if $num % $i == 0;     # 如果能被整除，则不是素数
    }
    return 1;
}

for my $num (1..$n) {
    if (is_prime($num) && $num % 10 != 5) {   # 检查是否是素数且个位不为5
        print "$num\t";                            # 输出数字，每个数字后跟制表符分隔
        last if ++$count >= 6;                    # 当计数器到达6时，跳出当前内层循环
    }
    print "\n" unless $count % 6 == 0;          # 每输出6个数换行
    $count = 0;                                 # 重置计数器
}

print "\n";  # 结束后加一个换行

运行这个脚本时，它会提示用户输入`n`的值，然后按照要求打印符合条件的素数。