#!/usr/local/bin/perl

use strict;
use SAP::Rfc;
use Data::Dumper;

my $rfc = new SAP::Rfc(
  ASHOST   => 'SD2',
  USER     => 'MYUSER',
  PASSWD   => 'mypassword',
  LANG     => 'EN',
  CLIENT   => '400',
  SYSNR    => '00',
  TRACE    => '1');

if ($rfc->is_connected()) {
  print "RFC dump\n";
  print Dumper ($rfc);
  $rfc->close();
}
else {
  print "Error connecting to SAP RFC Gateway";
}