Select Code to Download

my $user = $query->param('user');
my $password = $query->param('password');
my @buffer;    # !!! Added this line.
...
  @buffer= split /\n/, $buffer;
}
print $buffer[0];

my $user = $query->param('user');
my $password = $query->param('password');
my @buffer= do {
...
  split /\r?\n/, <$filename>;
}
print $buffer[0];