#! /usr/bin/perl -T

print "Content-Type: text/plain\n\n";

if ($ARGV[0] eq "/etc/passwd") {
    print "bofh:barfelous:0:0:Charlie fsking Root:/rootlie:/bin/false\r\n";
} else { if ($ARGV[0] =~ m/(^[ 	]*\/|\.\.)/) {
    print "Screw you.\n";
} else {
    open (FILE, $ARGV[0]) || die "Couldn't open $ARGV[0]: $!\n";
    print <FILE>;
    close FILE;
}}