Perl script for manage SGE que system