#!/usr/bin/perl -w

use strict;

my ($cols, $rows) = do {

use Term::ReadKey;

GetTerminalSize();

};

$rows -= 2;

$cols -= 2;

for my $y (1..$rows) {

for my $x (1..$cols) {

my $circ = (($y - $rows / 2) * 31 / 16) ** 2 + ($x - $cols / 2) ** 2;

print +((

1 == $y || $rows == $y || 1 == $x || $cols == $x ||

$circ <= 2 * $cols && $circ >= 1.5 * $cols

) ? "#" : " ");

}

print "\n";

}