Select Code to Download

my(@conf);
if(defined($opt{config_file})){
...
else{
   @conf = @default_conf;
   }

$ cat 1174639.conf 
@conf = (
...
   {'step' => 4,  'blur_fwhm' => 2,  'iterations' => 10},
   {'step' => 2,  'blur_fwhm' => 1,  'iterations' => 10},
   );

$ cat 1174639.pl
use strict; use warnings; use feature 'say';
...
my @conf;
eval( $buf );
say Dumper \@conf;

$ perl 1174639.pl
$VAR1 = [
...
            'iterations' => 10
          }
        ];