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