#!/usr/local/bin/perl -w
use strict;

sub prints_headers {
    print "Content-type: text/html\n\n";
}

my $output;
open my $NEWSTDOUT,">",\$output;

select $NEWSTDOUT;
prints_headers();
select STDOUT;

print "Captured '$output'\n";