From 5a800a7d5890022c7736748a305db7ed608cfb1c Mon Sep 17 00:00:00 2001
From: Ruben Westerberg <drclaw@mac.com>
Date: Sun, 29 Sep 2019 07:33:39 +1000
Subject: Added ch2.pl

---
 challenge-027/ruben-westerberg/perl5/ch-2.pl | 33 ++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100755 challenge-027/ruben-westerberg/perl5/ch-2.pl

diff --git a/challenge-027/ruben-westerberg/perl5/ch-2.pl b/challenge-027/ruben-westerberg/perl5/ch-2.pl
new file mode 100755
index 0000000000..569388237f
--- /dev/null
+++ b/challenge-027/ruben-westerberg/perl5/ch-2.pl
@@ -0,0 +1,33 @@
+#!/usr/bin/env perl
+use warnings;
+use strict;
+use  Tie::Scalar;
+
+package myclass;
+sub TIESCALAR {
+	my $class=shift;
+	my $h=shift;
+	bless ({history=>$h}, $class);
+}
+
+sub FETCH {
+	my $self=shift;
+	my $h=$self->{history};
+	$h->[-1];
+}
+sub STORE {
+	my $self=shift;
+	my $value=shift;
+	push @{$self->{history}},$value;
+
+}
+
+package main;
+my $test;
+my @history;
+tie $test, 'myclass', \@history;
+$test=10;
+$test=1;
+$test=15;
+print "Current Value of variable: $test\n";
+print "Historical Values: @history\n";
-- 
cgit