#!/usr/local/bin/perl

require "mysql_handeler.pl";
@res=mysql_handeler('select * from user_staff;');

foreach $line (@res){
        chop;
        @ary = split(/  /, $line);
        push (@array, @ary);

        foreach (@ary){
                print "|$_      |";
        }


        print "\n";
}
--------#!/usr/local/bin/perl
$mysql_home="/var/tmp/hfranks/mysql/mysql-max-3.23.56-sun-solaris2.8-sparc/bin/$
$user="root";
$password="crap";
$database="grade";

sub mysql_handeler{
        foreach (@_){
        @results=`$mysql_home -u $user --password=$password -e '@_' $database`;
        }
return @results;
}
return true;