use Cwd 'abs

#!/usr/bin/env perl
use Cwd 'abs_path';
$|=1;
alarm(10);
my $request=<>;
alarm(0);
$request =~ s/[\r\n]//g;
chdir("/var/gopher");
my $path=abs_path("./$request");
$path="/var/gopher/" if $path eq "/var/gopher";
print "3cut it out\t.\t.\t.\r\n" and exit 1 if $path !~ /^\/var\/gopher\//;
$path.="/map" if -d $path;
print "3not found\t.\t.\t.\r\n" and exit 2 if !open(FILE, "<$path");
print <FILE>;
close(FILE);