#!/usr/bin/perl
#
##   disable buffered I/O which would lead
##   to deadloops for the Apache server
$| = 1;
#
##   read URLs one per line from stdin
while (<>) {
	my $line = $_;
	if ($line eq "input_from_apache\n"){
		print "my_desired_output\n";
	}
	else{
		print "\n";
	}
}