Готовая программа

#!/usr/bin/perl

use warnings;

my $n=shift // die "Нужно неотрицательное число!\n";

for(1..$n)
{
	for(1..$n)
	{
		print '*';
	}
	print "\n";
}
#!/usr/bin/perl

use warnings;

my $n=shift // die "Нужно неотрицательное число!\n";

print(('*' x $n, "\n") x $n);
#!/usr/bin/perl

use warnings;

my $n=shift // die "Нужно неотрицательное число!\n";

for my $j(0..$n-1)
{
	for my $i(0..$n-1)
	{
		print((($i+$j)%2)? ' ': '*');
	}
	print "\n";
}
#!/usr/bin/perl

use warnings;

my $n=shift // die "Нужно неотрицательное число!\n";

print '*' x $n, "\n" if $n;

for(1..$n-2)
{
	print '*', ' ' x ($n-2), "*\n";
}

print '*' x $n, "\n" if $n>1;
#!/usr/bin/perl

use warnings;

my $n=shift // die "Нужно неотрицательное число!\n";

my $d;
for my $j(0..$n-1)
{
	for my $i(0..$n-1)
	{
		$d=$j;
		$d=$i if $i<$d;
		$d=$n-$j-1 if $n-$j-1<$d;
		$d=$n-$i-1 if $n-$i-1<$d;
		print($d%2? ' ': '*');
	}
	print "\n";
}
Информатика-54© А. Н. Швец