Drawing a diamong shaped figure in Perl

#diamond.pl
#!/bin/perl5

print "Enter the height of the diamond: ";
chomp($height=<STDIN>);

$temp=$height;

for($i=1;$i<=$height;$i++)
{
for($j=0;$j<$temp;$j++)
{
print " ";
}
$temp--;

for($k=0;$k<$i;$k++)
{
print "* ";
}
print "\n";
}

$temp=2;
for($i=$height-1;$i>=0;$i--)
{
for($j=0;$j<$temp;$j++)
{
print " ";
}
$temp++;

for($k=0;$k<$i;$k++)
{
print "* ";
}
print "\n";

}