#!/usr/bin/perl

# ---------------------------------------------- #
#
# to run the script, enter:
#
# perl ./print_fragments.pl input=IE    
#
# or
#
# perl ./print_fragments.pl input=Mozilla
#
# ---------------------------------------------- #


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);
  }
}