Writing side of square

Hello,

I need create a square using a single number, but I don't know how to
creat=
e the sides.

I have to create this:

****
*  *
*  *=20
****

My code is below :

print "Enter with number:";
chomp ($number =3D <STDIN>);

my @[EMAIL PROTECTED]
 =3D ();

$cont =3D 0;

while ($numero > $cont)
 {
 =09$array[$cont]=3D"*";
 =09$cont++;
 }
=20
 print @[EMAIL PROTECTED]
 print "\n";
 print @[EMAIL PROTECTED]
 print "\n";
 =20
How I can to show the arrar like sides ?

[]'s

Faria=0A=0A=0A      Abra sua conta no Yahoo! Mail, o =FAnico sem limite de
=
espa=E7o para armazenamento!=0Ahttp://br.mail.yahoo.com/