获取子程序输入的变量名称

Question

有没有办法将输入的变量名称输入子程序？我想做以下事情：

use MyModule;
my $x = 'test';
MyModule::print_var_name($x); # prints '$x'

当然，在很多情况下这是没有意义的，例如print_var_name(1+2)。只有简单的案例才对我很重要。

我的计划是使用此变量名作为漂亮打印功能的合理默认值。