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

##</code><code>##

$select->rows
  and mydie {class=>'cyan'}, "Error occured $row->{username}! Script have to die";