#!/usr/bin/perl
use IO::Dir;

    tie %dir, 'IO::Dir', "/var/lib/mysql/club";
    foreach (keys %dir) {
         print $_, " " ,"\n";

    }