Select Code to Download

#!/usr/bin/perl -w

...
  return ($new);
  
}

input:$VAR1 = 1;

...
               ]
        };
c:$VAR1 = 'something new';