#! /usr/bin/perl

use ccbs;
use strict;
use warnings;

ccbs::admin_only();

my $dbh = ccbs::db_connect();
my $cgi = new CGI;

$dbh->do('DELETE FROM randomsongsused');

ccbs::print_see_other('randomsongs.pl');

$dbh->disconnect;
