if( param('Αποστολή') )
{
   if ( ($name eq 'delete') or ($name eq 'deletelog') or ($name eq 'drop')) {
      if ($ENV{REMOTE_USER} eq 'Nik') {
         if ($name eq 'delete') {
            $dbh->do( "DELETE FROM guestbook WHERE name=$pray" );
            push @print_later, span( {class=>'lime'},    "Μόλις διαγράψατε τον χρήστη => " );
            exit 0;
         }
         elsif ($name eq 'deletelog') {
            $dbh->do( 'DELETE FROM guestlog' );
            push @print_later, span( {class=>'tip'},  "Η βάση δεδομένων με τα logs μόλις διαγράφηκε!" );
            push @print_later, span( {class=>'yellow'},  $pray );
            exit 0;
         }
         elsif ($name eq 'drop') {
            $dbh->do( 'DELETE FROM guestbook' );
            push @print_later, span( {class=>'tip'},  "Όλες οι εγγραφές διαγράφηκαν από τη βάση δεδομένων!" );
            exit 0;
         }
      }
      else {
         print header(-status=>'401 Unauthorized', 'WWW-Authenticate'=>'Basic realm="Only Nik can do perform that!"');
      }
   }