Select Code to Download

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

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