Select Code to Download

              w * h = (w - 2) * h + 10
w * h - (w - 2) - h = 10
    h * (w - w + 2) = 10
                 2h = 10
                  h = 5

#!/usr/bin/perl
use strict;
...
    }
    ++$width;
}