perl scrip feeded by filepro

[Enrique Arredondo]

Hi,

For the perl gurus out there, Is there a way to run a perl script using 
arguments like a normal shell does ?

I have a perl script that I need to run with some arguments coming from 
filepro running on a system noredraw command in order to get data back.

If it was ksh , I'll do something like this:

system noredraw "script argument1 argument2 > /tmp/file"

and then I'll import the file and get the information.

But it seems that a perl script won't work with $1 $2 ,etc. Or is there a 
way ?

Here's an example of my perl script:

use SOAP::Lite; # SOAP::Lite Library must be installed
print "*****STARTED SCRIPT*****\n";
print "\n***BEGIN EXECUTION OF GetQuoteXML***\n";

my $soap = SOAP::Lite
     -> uri('http://www.afslogistics.com')
     -> on_action( sub { join '/', 'http://www.afslogistics.com', $_[1] } )
     -> 
proxy('http://www.afslogistics.com/AFS.Web.Intranet/Services/ratequote.as
mx');

my $method = SOAP::Data->name('GetQuoteXML')
         ->attr({xmlns=>'http://www.afslogistics.com/'});

$weight = "";  ## THIS IS WHERE I WANT THE ARGUMENT TO SHOW UP <<<<<<<<<
                ## CAN I USE  $weight = $1 ?

my @params = (    SOAP::Data->name(weight => $weight));

print $soap->call($method => @params)->result;

print "\n*****ENDED SCRIPT*****";