my $ofh = \*STDOUT;
$ofh->print("test 2\n");