#!/usr/local/bin/perl 
 
    use strict; 
    use lib './'; 
    use Links qw/$IN $DB $CFG/; 
    use GT::SQL; 
    use GT::SQL::Condition; 
    use CGI::Carp qw(fatalsToBrowser); 
 
    local $SIG{__DIE__}  = \&Links::fatal;	 
 
    Links::init('./'); 
 
    my $user_to_delete = 'testing'; 
 
    my $sth = $DB->table('Links')->select( { LinkOwner => $user_to_delete } ) || die $GT::SQL::error; 
 
   while (my $hit = $sth->fetchrow_hashref) { 
     print qq{Deleting $hit->{ID} \n }; 
     $DB->table('Links')->delete( { ID => $hit->{ID} } ); 
   }