use CGI qw/:standard/; use CGI::Carp qw(fatalsToBrowser); require "../cgi-bin/codes.txt"; require "scoops.txt"; my $media = "SGG"; 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);