sub foo*bar {
   return 42;
}

print foo*bar(), "\n";

##</code><code>##

my $name = "foo*bar";

*$name = sub {
   return 42;
};

print &$name(), "\n";

##</code><code>##

$ psql tai
psql (9.1.13)
Type "help" for help.

tai=# CREATE TABLE "foo" ("when" varchar, "select" varchar, "update" varchar);
CREATE TABLE
tai=# INSERT INTO "foo" VALUES ('a','b','c');
INSERT 0 1
tai=# SELECT * FROM "foo";
 when | select | update 
------+--------+--------
 a    | b      | c
(1 row)

tai=# DROP TABLE "foo";
DROP TABLE
tai=#