#!/usr/bin/perl -w

use strict;
use warnings;

use Packagetest;

my $recs = Packagetest::ReadFile("datafile");
for my $rec (@$recs) {
    print "Wrestlername:  $recs->[0]\n";
    print "Crowdreaction: $recs->[1]\n";
    print "Specialmove:   $recs->[2]\n";
    print "\n";
}