#!/usr/bin/perl -w

use strict;
use CGI qw(:standard);

my $query = new CGI;

print header;
print start_html;

my $user = $query->param('user');
my $password = $query->param('password');
{
  no strict;
  $filename = $query->param('foofile');
  undef $/;
  $buffer = <$filename>;
  $buffer =~ tr/\r\n/\n/;
  @buffer= split /\n/, $buffer;
}
print $buffer[0];

print end_html;