# method 1
select RESULT;
print "something\n";
select STDOUT;
print "something\n";

# method 2
select RESULT;
do_test();
select STDOUT;
do_test();

sub do_test {
  print "something\n";
}