$ perle 'my %fh = (err => \*STDERR); $fh{err}->print("errmsg\n");'
errmsg

$ perle 'my %fh = (err => *STDERR); $fh{err}->print("errmsg\n");'
errmsg