powerexploit · bavitha01 · Feb 13, 2025
diff --git a/.idea/.gitignore b/.idea/.gitignore
diff --git a/.idea/Perl-Scripting.iml b/.idea/Perl-Scripting.iml
diff --git a/.idea/misc.xml b/.idea/misc.xml
diff --git a/.idea/modules.xml b/.idea/modules.xml
diff --git a/.idea/vcs.xml b/.idea/vcs.xml
diff --git a/Perl-Scripting/sub_routine_prob.pl b/Perl-Scripting/sub_routine_prob.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+# Subroutine to check even or odd
+sub check_even_odd {
+    my ($num) = @_;  # Get the number from arguments
+    return $num % 2 == 0 ? "$num is Even\n" : "$num is Odd\n";
+}
+
+# Taking user input
+print "Enter a number: ";
+my $num = <STDIN>;
+chomp($num);
+
+# Calling the subroutine and printing result
+print check_even_odd($num);