Select Code to Download

my $filename = <"Hashstructure.txt">;
open my $F, ">", $filename or die $filename, $!;