open(REPLAY_FILE, "+<$rpl")
[download]

Not the solution, but open files this way:

open my $REPLAY_FILE, '+<', $rpl or die $!;
while (my $line = <$REPLAY_FILE>) {
  #... do stuff with $line
}
close $REPLAY_FILE;
[download]

See open for more information.