Rolf, Here is how my code looks In script.pl,dumper prints as below

print Dumper($data_href);
output1:
$VAR1 = {
          'Node' => 'TestServer'
        };


$obj->check_data($data_href);
[download]

----------------

dataclass.pm

sub new {
  ...
}

sub check_data {

   my ($self, $args) = @_;

   print Dumper($args);

}
[download]

---------------