create_profile( $dbh, $profile_ref )

##</code><code>##

my $profile_ref ={
						PROFILE_NAME => "test_profile",
	SESSIONS_PER_USER => "1",
	CPU_PER_SESSION => "DEFAULT",
	PRIVATE_SGA => "UNLIMITED",
	PASSWORD_LIFE_TIME => "90"
	};

##</code><code>##

sub create_profile()
{
	my ($dbh, $profile_specs_ref) = @_;
	my ($sql, $key, $value);
        my %profile_specs = %{$profile_specs_ref};