{
    use warnings;
    use strict 'refs';
    my($name) = @_;
    print "$str $name\n";
}