my $thickness = 10;

for(my $i = int($thickness/2 * -1); $i < ceil($thickness/2); i++)
{
   $im->line($x1+40, $y1+$i, $x2+40, $math1+$i, $linienfarbe);
}