# 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;