Select Code to Download

print "Hello %(name)s! Today is %(day)s!" % ( 'name' : 1, 'day' : 2 );

use Text::Sprintf::Named;
my $formatter = Text::Sprintf::Named->new(
...
);

$formatter->format({args => {'name' => "John", 'day' => "Thursday"}});