Select Code to Download

my @settings = @_;
open my $default, '>', 'default.cfg' or die $!;
...
    print $default $_, "\n";
}
close $default;