my $fh = select;
printto("Hello\n");

sub printto
 {
    my $string = shift;
    print $fh $string;
 }