#!/usr/bin/perl

my $request = shift;
$request->send_http_header('text/plain');
$request->print( $request->content() );