#!/usr/bin/perl5

use strict;
use warnings;

use HLDS;

my @games = HLDS::ReadFile(HL1, HL1.txt);

foreach my $game (@games) {
        print "$game\n";
}