Challenge #031 / Task =2

1 files changed, 18 insertions, 0 deletions

diff --git a/challenge-031/dave-cross/perl5/ch-2.pl b/challenge-031/dave-cross/perl5/ch-2.pl
new file mode 100644
index 0000000000..de21aa658f
--- /dev/null
+++ b/challenge-031/dave-cross/perl5/ch-2.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+# Because this is *literally* the point of this code
+no strict 'refs';
+
+use File::Basename;
+
+my $varname = shift
+  or die "Usage: ", basename($0), " variable-name\n";
+
+# Set that variable
+$$varname = int rand 256;
+
+# Print the variable
+print "The variable is called $varname and it has the value $$varname\n";