Select Code to Download

if ($] >= 5.014) {
  ...
...
else {
  ...
}

BEGIN {
  *NEW_PERL = ($] >= 5.014) ? sub(){1} : sub(){0};
}
...
else {
  ...
}