Writing side of square

Hello,

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

I have to create this:

****
*  *
*  * 
****

My code is below :

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

my @array = ();

$cont = 0;

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

[]'s

Faria


      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/

• Writing side of square by Rodrigo Tavares
• RE: Writing side of square by Thomas Bätzler
• Re: Writing side of square by Stephen Kratzer
• Re: Writing side of square by Chas. Owens
• Re: Writing side of square by Rob Dixon
• Re: Writing side of square by Jerald Sheets