SAP Module sapnwrfc: Retrieving data from SAP using RFC

I'm sorry, if I'm asking about something that's obvious in SAP. I need to develop a perl application in a remote server that will receive a requisition from an abap application.

I'm using the SAP Module sapnwrfc. I connect to SAP Gateway with no errors and execute the function sapnwrfc::installFunction (no errors returned) but I can't find the transaction in SAP. Anybody has some document about configurations that I need to do in sap ? Or anybody could see the code above and tell me what is wrong?

[code]

#!/usr/bin/perl

use sapnwrfc;

use Data::Dumper;

use utf8;

  SAPNW::Rfc->load_config;

  my $conn = SAPNW::Rfc->rfc_connect;

  # print "Testing SAPNW::Rfc-$SAPNW::Rfc::VERSION\n";

  my $func = new SAPNW::RFC::FunctionDescriptor("ZRFCDAZEL") ;

  my $pipedata = new SAPNW::RFC::Type(name => 'DATA',

                                      type => RFCTYPE_TABLE,

                                      fields => [{name => 'OBJTY',

                                                  type => RFCTYPE_CHAR,

                                                  len => 4},

                                                 {name => 'OBJKY',

                                                  type => RFCTYPE_CHAR,

                                                  len => 10},

                                                 {name => 'ATTRIBUTES',

                                                  type => RFCTYPE_CHAR,

                                                  len => 255},

                                                 ]);

  $func->addParameter(new SAPNW::RFC::Export(name => "COMMAND",

                                             len => 255,

                                             type => $pipedata));

  $func->addParameter(new SAPNW::RFC::Import(name => "COMMAND1",

                                             len => 255,

                                             type => $pipedata));

$funcao->callback(\&do_remote_pipe);

$conn->disconnect();

exit;

sub do_remote_pipe {

    my $param = shift;

    print "\nPARM : " . $param->{'ZDUS'} . "\n";

    $param->COMMAND1([{'LOG'=>'Execute ZDUS PARAMETER '}]);

    $param->COMMAND1([{'STATUS'=>'S'}]);

    return 1;

}

sub do_global_callback {

    warn "Running global callback ...\n";

    return 1;

}