sub border_style { my($width, $style, $colour) = @_;