I've had some luck with the following snippet:

{
   local *STDOUT;
   open( STDOUT, ">>/dev/tty" );
   print "This goes to /dev/tty\n";
}
[download]