# Packagetest.pm

package Packagetest;

sub ReadFile
{
    my ($fn) = @_;
    open(my $fh, '<', $fn)
        or die("Can't open file \"$fn\": $!\n");

    my @recs;
    while (<$fh>) {
        chomp;
        my @tokens = split /\|/;
        push @recs, \@tokens;
    }

    return \@recs;
}

1;

##</code><code>##

#!/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";
}