by@wass80
WA
1234ms
my ($h,$w)=<>,<>-2;say "*".($_>1&&$_<$h?$":"*")x$w."* "for 1..$h
94 18
[31m===[0mSORRY![31m===[0m Error while compiling /volume/CODE Unsupported use of <>; in Perl 6 please use lines() to read input, ('') to represent a null string or () to represent an empty list at /volume/CODE:1 ------> [32mmy ($h,$w)=<[33m⏏[31m>,<>-2;say "*".($_>1&&$_<$h?$":"*")x$w."[0m