sub getToken			# generates Bearer access token
{
	my $output = `curl -k -s -XPOST (URL) -dgrant_type=password -dclient_id=(client ID) -dclient_secret=(client secret) -dusername=(username) -dpassword=(password)`;	
	$output =~ /"access_token":"(.*)", "ex/g;
	return $1;	
}

print getToken();