problem with command system,again

[Alen Sarkinovic]

Hello ,
Again,
problem with executing perl script from web .
I have fixed all my code and did not get any mestake with option perl -T
This perl script does not have any problem with executing from command
line :
perl -T smsgw.pl dest=5453 msgtxt=blabla

but when I try to made submit from web I get foloving $retval =65280 ,is
this some BUG or what?
Here is script called smsgw.pl

#!/usr/bin/perl -w
#===========================================================
# Program : smsgw.pl
# Author  : Philippe Andersson
# Date    : 24/03/99
# Version : 1.1
# Comment : (c) Les Ateliers du Heron, 1999 for Scitex Europe, S.A.
# Version History :
# * 1.0 (15/03/99) - Initial release.
# * 1.1 (24/03/99) - Fixed a problem with multi-line input.
#===========================================================
#-----------------------------------------------------------
# Name the global variables
my $dest = "";
my $msgtxt = "";
# Create en instance of CGI
my $query = new CGI;

# Send the MIME header
print $query->header ("text/html");
# Grab posted values
$dest = $query->param ("dest");
$msgtxt = $query->param ("msgtxt");            
# Was at least one field filled-in ?
if (($dest eq "") || ($msgtxt eq "")) {
  print $query->start_html (-title => "Greska !");
  print "<H1>Greska !</H1>\n";
  print "<P>Svi podaci su obavezni!";
  print $query->end_html;
  exit;
}   
# Check message length
my $txtlen = length ($msgtxt);
if ($txtlen > 160) {
  print $query->start_html (-title => "Error !");
  print "<H1>Error !</H1>\n";
  print "<P>Vasa poruka ne moze biti duza od 160 (char)karaktera
(now$txtlen). $
  print "Ovaj 160 char limit je ugraden u  SMS protocol i ne moze biti ";
  print "prekoracen ! ";
  print $query->end_html;
  exit;
}                                               
 # Remove newlines from msgtxt (replace them by space)
$msgtxt =~ s/\n/ /g;
#===========================================================
print $query->start_html (-title => "SMS Sending Rezultat");
print "<H1>SMS Sending Rezultat</H1>\n";
print "Poruka koju ste poslali glasi :  $msgtxt";
#-----------------------------------------------------------
# Submit the sendsms request
my $retval = 0;                           
if (($dest =~ /^([-\@\w.]+)$/) && ($msgtxt =~ /^([-\@\w.]+)$/)) {
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};   # Make %ENV safer
$ENV{"PATH"} = '/bin:/usr/local/bin:/usr/bin/';

$retval = system ("/bin/echo","$msgtxt","|
/usr/bin/gnokii/gnokii","--sendsms", "$dest"$
}
if ($retval == 0) {                                                   
print "<P>OK!!!</P>\n";
}
else {
  print "<P>Error.</P>\n";
  print $retval;
}

# End the HTML
#-----------------------------------------------------------
exit;                                                                     
                            

use strict;
use diagnostics;
use CGI;