Select Code to Download

use ExtUtils::MakeMaker qw(prompt);
$record->{$property} = prompt($property, $record->{$property});