Perl Module Construction

I need to put together a Perl module flight.pm that will return flight availability information

(sample Data)
(e.g. flight from london heathrwow to amsterdam, flight code RA396, using Virgin airways, departing date on 10/12/2005 at 0700 and arriving on 10/12/2005 at 08:00, duartion of journey 1:00)

In this module i must
-have a function or method checkFlightAvailability that matches the signature of the method below, i.e. takes two input values equivalent to a flightCode and date;
-checks the input matches the sample data (AS LISTED ABAOVE);
-returns the same response as found in running the below script (using sample data above)

----------------------------------------------------------------------------------
use SOAP::Lite;
     my $soap = SOAP::Lite
            -> uri     ( 'http://homepages.feis.herts.ac.uk/~3com0097/cgi-bin/flights.cgi') # this should be the real soap service namespace (might needed to be changed)
            -> proxy   ( 'http://homepages.feis.herts.ac.uk/~3com0097/cgi-bin/flights.cgi') # the actual script uri to handle the request
            -> on_fault(  sub {
                         my($soap, $res) = @_;
                         warn "SOAP Error (): " ,
                              ref $res
                                ? "fs: ".$res->faultstring . ', fc: '.$res-faultcode . ', fd: '. $res->faultdetail
                                : "tr: ".$soap->transport->status;
                         return 0;
                 })
         ;

-----------
    my $result = $soap->checkFlightAvailability( flightCode => 'Mayday, Mayday!', date => 'now' )->result;
-----------------------------------------------------------------------------------------------------------

can anyone help me?!?!?!?!
ThanksStart Free Trial