#!/usr/bin/perl

use CGI;

$q = new CGI;

$b = $q->param('input');

@file_list = undef;




if ($b eq "IE")
{
  @file_list = ("./frag1.txt", "./frag3.txt", "./frag5.txt");
}
else
{
  @file_list = ("./frag2.txt", "./frag4.txt");
}

&print_files(@file_list);




sub print_files(@list)
{
  foreach $file (@_)
  {
    open(FILE, "<$file"); 
    while (<FILE>)
    {
      print $_;
    }
    close(FILE);
  }
}