Select Code to Download

For example, you can say

...
    $SALARY = 57500;
    print "The salary is $money{$SALARY}";
    # Prints  ``The salary is $57,500.00''

use vars qw/$dbh/;
use DBI;
...

use Interpolation quoteit => sub { $dbh->quote(@_) };
print "select * from foo where bar = $quoteit{baz}";