use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
require "../cgi-bin/codes.txt";
require "scoops.txt";

my $media = "CHF";
my $two = "2";
my $media_two = "$media$two";
my $five = "5";
my $media_five = "$media$five";
($media_name,$media_desc,$file) = @codes{$media,$media_two,$media_five};

my $firstpart = "img/$file";
my $secondpart = "-600.jpg";
my $photo = "$firstpart$secondpart";

&page($media, $media_name, $media_desc, $photo);