my $rem  = url_param("rem");

use DB_File;


my %default;
my $default = "default.db";                 # location of database


tie %default, "DB_File", "$default", O_CREAT|O_RDWR, 0644, or die "Oops! $!\n";

print header, start_html;

if ($rem ne "")
{ 
   if (exists $default{$rem})
   {
      delete $default{$rem};
      print "<center><font color=blue>The URL was removed successfully.</font></center>";
   }
   else
   {
      print "<center><font color=red>That URL was not found.</font></center>";
   }
}