Duplicate simple perl test using the Appium.pm module

sample-code/examples/perl/ios_simple_appium.pl

@@ -0,0 +1,49 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+use Test::More;
+use File::Spec;
+use Appium;
+
+# Helper to build absolute path relative to location of this file.
+sub path_from_rel {
+  my $rel = shift;
+
+  my ($vol, $dir, $file) = File::Spec->splitpath( File::Spec->rel2abs( __FILE__ ));
+  File::Spec->catpath($vol, $dir, $rel)
+}
+
+my $caps = {
+    app               => path_from_rel('/../../apps/TestApp/build/release-iphonesimulator/TestApp.app'),
+    browserName       => "",
+    deviceName        => "iPhone 6",
+    platformName      => "iOS",
+    platformVersion   => "8.1"
+};
+
+my $driver = Appium->new(
+    remote_server_addr   => "127.0.0.1",
+    port                 => 4723,
+    desired_capabilities => $caps
+);
+
+ok(defined $driver, 'Instantiated an iOS driver!');
+
+my $expected_sum;
+foreach (qw/1 2/) {
+    my $text_field = $driver->find_element('TextField' . $_, 'name');
+    my $rand = int(rand(20));
+    $expected_sum += $rand;
+    $text_field->send_keys($rand);
+}
+
+my $compute_button = $driver->find_element('ComputeSumButton', 'name');
+$compute_button->click;
+
+my $sum_element = $driver->find_element($expected_sum, 'name');
+ok($sum_element->get_text eq $expected_sum, 'We can do addition!');
+
+$driver->quit;
+
+done_testing;