diff --git a/perl/Item.pm b/perl/Item.pm
index 04b0c2ae..556d215a 100644
--- a/perl/Item.pm
+++ b/perl/Item.pm
@@ -8,8 +8,8 @@ sub new {
     return bless \%attrs, $class;
 }
 
-sub _data_printer {    ## no critic (ProhibitUnusedPrivateSubroutines)
-    my ( $self, $properties ) = @_;
+sub to_string {
+    my ($self) = @_;
     return $self->{name} . ', ' . $self->{sell_in} . ', ' . $self->{quality};
 }
 
diff --git a/perl/texttest_fixture.pl b/perl/texttest_fixture.pl
new file mode 100755
index 00000000..565a8b61
--- /dev/null
+++ b/perl/texttest_fixture.pl
@@ -0,0 +1,72 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use GildedRose;
+use Item;
+
+print 'OMGHAI!', "\n";
+my $items = [
+    Item->new(
+        name    => '+5 Dexterity Vest',
+        sell_in => 10,
+        quality => 20
+    ),
+    Item->new(
+        name    => 'Aged Brie',
+        sell_in => 2,
+        quality => 0
+    ),
+    Item->new(
+        name    => 'Elixir of the Mongoose',
+        sell_in => 5,
+        quality => 7
+    ),
+    Item->new(
+        name    => 'Sulfuras, Hand of Ragnaros',
+        sell_in => 0,
+        quality => 80
+    ),
+    Item->new(
+        name    => 'Sulfuras, Hand of Ragnaros',
+        sell_in => -1,
+        quality => 80
+    ),
+    Item->new(
+        name    => 'Backstage passes to a TAFKAL80ETC concert',
+        sell_in => 15,
+        quality => 20
+    ),
+    Item->new(
+        name    => 'Backstage passes to a TAFKAL80ETC concert',
+        sell_in => 10,
+        quality => 49
+    ),
+    Item->new(
+        name    => 'Backstage passes to a TAFKAL80ETC concert',
+        sell_in => 5,
+        quality => 49
+    ),
+    Item->new(    # This Conjured item does not work properly yet
+        name    => 'Conjured Mana Cake',
+        sell_in => 3,
+        quality => 6
+    ),
+];
+
+my $days = 2;
+if ( $#ARGV >= 0 ) {
+    $days = $ARGV[0];
+}
+
+my $gilded_rose = GildedRose->new( items => $items );
+for my $day ( 0 .. $days ) {
+    print "-------- day $day --------", "\n";
+    print 'name, sellIn, quality',      "\n";
+    for my $item ( @{$items} ) {
+        print $item->to_string(), "\n";
+    }
+    print "\n";
+    $gilded_rose->update_quality();
+}
diff --git a/texttests/config.gr b/texttests/config.gr
index e6cfd5c7..5be96e39 100755
--- a/texttests/config.gr
+++ b/texttests/config.gr
@@ -22,6 +22,10 @@ interpreter:java
 # Settings for the C# version
 #executable:${TEXTTEST_CHECKOUT}/GildedRose.exe
 
+# Settings for the Perl version
+#executable:${TEXTTEST_CHECKOUT}/perl/texttest_fixture.pl
+#interpreter:perl
+
 # turn on one of these if you prefer them to notepad or emacs.
 [view_program]
 *:mate
diff --git a/texttests/environment.gr b/texttests/environment.gr
index d419d84d..1483a513 100755
--- a/texttests/environment.gr
+++ b/texttests/environment.gr
@@ -1,2 +1,3 @@
 # If your .class files are somewhere else, add the path to the list
 CLASSPATH:${TEXTTEST_CHECKOUT}/Java:${TEXTTEST_CHECKOUT}/Java/bin
+PERL5OPT:-I${TEXTTEST_CHECKOUT}/perl