Some points you may want to consider:

• removing the redundant ( and ) in $query = (qq^SHOW DATABASES^)
• using bound variables with bind_col and bind_columns
• replacing grep { $_ =~ ".gz" } with  grep { /\.gz$/ } or being lazing and using <*.gz>
• using File::Path to remove directories in a portable way

Hope this helps...

gav^