Select Code to Download

use FileHandle;

...
# this will go to log file if $resp was y
#
print "Holla!\n";