use DynScalar 'delay';

$greeting = delay { "Hello, $name" };

print "Who are you? ";
chomp($name = <STDIN>);

print $greeting;