my $name = 'cLive ;-)';
  no strict 'refs';
  *$name = sub { print "This is not my name\n" };
  $name->();
[download]

Hugo