$ ./perl -we 'my *foo = *bar; $bar = "Hello, world!\n"; print ${*foo}' Hello, world!