#!/usr/bin/perl
use strict;
use warnings;
use Cwd 'abs_path';

$| = 1;
alarm(10);

my $request = <>;
alarm(0);

$request =~ s/[\r\n\/]+$//g;

chdir("/var/nex") or exit 1;
my $path = abs_path("./$request");
$path = "/var/nex/" if $path eq "/var/nex";

exit 1 if !defined $path || $path eq "" || $path !~ /^\/var\/nex\//;

$path .= "/index" if -d $path;

open my $file, '<', $path or exit 1;
print <$file>;
close $file;