#!/usr/bin/perl
#use strict;
use Data::Dumper;
use lib "./";
use BigIP::F5;

my $user = "xxxx";
my $pass = "xxxx";
my $host = "xxxx";

my $connection = BigIP::F5->new($host, $user, $pass);
my $partition = BigIP::F5->getActivePartition($connection);

print $partition."\n";