Or do it the other way around, with a combination of yours and hardburn's methods. Name your sub to be 'printto' and then print to the filehand in the sub, like this:

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

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

Although it just seems like it'd be a lot either to just print it to the file hand directly as hardburn said.