#!/usr/bin/perl -w

use strict;

print "To stdout\n";
my $savesel = select(STDERR);
print "To stderr\n";

select($savesel);
print "To stdout\n";