# load all sql files as the DBUser
    my @sql_dirs = pkg('File')->find_all('sql');
    print STDERR "Loading SQL for '$name' from " . join(', ', @sql_dirs) . 
      "...\n" if $verbose;
    $cmd = "cat " . join(' ', map { catfile($_, '*.sql') } @sql_dirs) . 
      " | mysql -u$user $name ";
    $cmd .= " -p$pass" if $pass;
    $cmd .= " -h$hostname" if defined $hostname;
    $cmd .= " -v" if $verbose > 1;
    print "Running '$cmd'\n" if $verbose > 1;
    system($cmd) && die "Couldn't load SQL: $?: $!";