#!/usr/bin/perl

use strict;
use warnings;
use Storm;
use Data::Dumper;

my $config = {
		storm_server		=>	'172.16.0.55',
		storm_port			=>	'9001',
		storm_auth_login	=>	'0',
		storm_login			=>	'1',
		storm_user			=>	'stormuser',
		storm_pass			=>	'pass',
	};

my $self = Storm->new($config);

print Dumper $self;

package Storm;

use IO::Socket;

sub new {
	my $class	= 	shift;
	my $self	=	shift;
	# The next lines, should this be here or in another 
        # method
                    if( $self->{storm_auth_login} ) {
			$self->{append_text} = "X12-"
			}
		
		
	bless $self, $class;
	return $self;
}