#!/usr/bin/perl -w
use strict;
print "Print this\n";
{
    local *STDOUT;
    open(STDOUT,">/dev/null");
    # don't allow this include file to print anything
    do "test.inc";
    close(STDOUT)
}
print "Print this too\n";