029 Chal 2 LK

1 files changed, 37 insertions, 0 deletions

diff --git a/challenge-029/lubos-kolouch/perl5/ch-2.pl b/challenge-029/lubos-kolouch/perl5/ch-2.pl
new file mode 100644
index 0000000000..bd11741d01
--- /dev/null
+++ b/challenge-029/lubos-kolouch/perl5/ch-2.pl
@@ -0,0 +1,37 @@
+#!/usr/bin/perl 
+#===============================================================================
+#
+#         FILE: ch-2.pl
+#
+#        USAGE: ./ch-2.pl  
+#
+#  DESCRIPTION: https://perlweeklychallenge.org/blog/perl-weekly-challenge-029/
+#
+#  Write a script to demonstrate calling a C function. It could be any user defined or standard C function.
+#
+#      OPTIONS: ---
+# REQUIREMENTS: ---
+#         BUGS: ---
+#        NOTES: ---
+#       AUTHOR: YOUR NAME (), 
+# ORGANIZATION: 
+#      VERSION: 1.0
+#      CREATED: 10/12/2019 07:55:51 PM
+#     REVISION: ---
+#===============================================================================
+
+use strict;
+use warnings;
+use feature qw/say/;
+
+use Inline C => << 'END';
+
+void print_c() {
+    printf("test");
+}
+
+END
+
+print_c;
+
+