Select Code to Download

my @keys = sort keys %functions;

my $info = "out.txt";
open my $out,">", $info or die "could not open $info $!";
print $out "Key: $_ and Value: $functions{$_}\n" for sort keys %functi
+ons;
close $out;