q[$value],\n"; } echo "},\n"; } ?> ##
##

sub sql_query
{
    my ($query) = @_;
    my ($data_structure, @data);
    # Ugly kluge to get SQL to work via Perl instead of PHP
    $query = url_encode($query); # TODO: use standard function
    $data_structure = get("http://www.account.f2s.com/sql.php?query=$query");
    @data = eval "($data_structure)";
    return @data;
}