do {
   local *STDERR = *STDOUT;
   $! = 0;
   die(h1( {class=>'cyan'}, "Error occured $row->{username}! Script have to die" ));
} if $select->rows;

##</code><code>##

do {
   print(h1( {class=>'cyan'}, "Error occured $row->{username}! Script have to die" ));
   exit(0);
} if $select->rows;

##</code><code>##

print(h1( {class=>'cyan'}, "Error occured $row->{username}! Script have to die" )), exit(0)
   if $select->rows;

##</code><code>##

if ($select->rows) {
   print(h1( {class=>'cyan'}, "Error occured $row->{username}! Script have to die" ));
   exit(0);
}

##</code><code>##

sub fatal_error {
   print(h1( {class=>'cyan'}, @_);
   exit(0);
}

fatal_error("Error occured $row->{username}! Script have to die")
   if $select->rows;