{
    local *NEWOUT;
    open(NEWOUT, "> $file") or die "Cannot open ($file): $!";
    my $oldfh = select(NEWOUT);
    # print some stuff here
    select($oldfh);
}