#!/usr/bin/perl

use strict;
use warnings;
use Selenium::Remote::Driver;

my $url = 'http://my_internal_url.com';

my $driver = Selenium::Remote::Driver->new(
	'browser_name' => 'phantomjs',
	'port'     => '8089'
);

$driver->get( $url );

$driver->find_element("//a[contains(.,'serviceone')]")->click(1);
$driver->find_element("//input[\@value='Stop Service']")->click(1);

$driver->find_element("//a[contains(.,'servicetwo')]")->click(1);
$driver->find_element("//input[\@value='Get Status']")->click(1);