Added ch-2.pl

3 files changed, 15 insertions, 2 deletions

diff --git a/challenge-029/ruben-westerberg/README b/challenge-029/ruben-westerberg/README
index 52b861edc1..e6f292a7cb 100644
--- a/challenge-029/ruben-westerberg/README
+++ b/challenge-029/ruben-westerberg/README
@@ -15,4 +15,4 @@ Run the program with commanline arguments enclosed in single quotes to prevent t
 
 ch-2.pl and ch-2.p6
 ===
-
+Run the program to demonstrate calling a C function
diff --git a/challenge-029/ruben-westerberg/perl5/ch-2.pl b/challenge-029/ruben-westerberg/perl5/ch-2.pl
new file mode 100755
index 0000000000..3694d1ae5f
--- /dev/null
+++ b/challenge-029/ruben-westerberg/perl5/ch-2.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/env perl
+use warnings;
+use strict;
+
+use Inline C => <<'__END__';
+
+int wgetuid() {
+	return getuid();
+}
+__END__
+
+print "User ID: ".wgetuid()."\n";
+
diff --git a/challenge-029/ruben-westerberg/perl6/ch-2.p6 b/challenge-029/ruben-westerberg/perl6/ch-2.p6
index 6340f809e9..3362743b22 100755
--- a/challenge-029/ruben-westerberg/perl6/ch-2.p6
+++ b/challenge-029/ruben-westerberg/perl6/ch-2.p6
@@ -2,4 +2,4 @@
 
 use NativeCall;
 sub getuid() returns uint32   is native { * };
-put getuid;
+put "User ID: "~getuid;