Useless use of a constant in void context

[Gbio Qi]

Hi, Here I have a program called 'emboss.pl', when I run it with perl5.6.1, it gives 
me the following error:

# /compbio/programs/perl-5.6.1/bin/perl5.6.1 emboss.pl
Useless use of a constant in void context at 
/compbio/programs/perl-5.6.1/lib/site_perl/5.6.1/EMBOSS/GUI.pm line 1752.
Content-type: text/html


Does anybody know where it is wrong? Actually I am using this script to make web page, 
If I can not run it correctly, I can not broswer it on the Web broswer.

Here is the emboss.pl:

# more emboss.pl
#!/compbio/programs/perl-5.6.1/bin/perl5.6.1

use CGI;
use EMBOSS::GUI;

my $cgi = new CGI;
print "Content-type: text/html\n\n";
init('/compbio/programs/emboss/share/EMBOSS', '/compbio/programs/emboss/bin', 
'/db4/usr/local/www/html_files/html/EMBOSS', 'http://athena
..wistar.upenn.edu/EMBOSS', 'http://athena.wistar.upenn.edu/cgi-bin', 0);
for ($cgi->param("_action")) {
        /^mmenu/        and do { mmenu($cgi); last; };
        /^input/        and do { input($cgi); last; };
        /^run/          and do { run($cgi); last; };
        /^help/         and do { help($cgi); last; };
        /^manual/       and do { manual($cgi); last; };
        /^search/       and do { search($cgi); last; };
}
print "\n";
# 


Thank you very much.

Grace



---------------------------------
Do You Yahoo!?
Sign-up for Video Highlights of 2002 FIFA World Cup