You could create your own equivalent to die that would do the above. Something like:

sub mydie(@)
{
  print h1(@_);
  exit(0);
}
[download]

Then you can say:

$select->rows
  and mydie {class=>'cyan'}, "Error occured $row->{username}! Script h
+ave to die";
[download]

Update: Fix typo above (Thanks fenLisesi!)