Select Code to Download

    while (<>) {
        chomp;  # avoid \n on last field
        @array = split(/:/);
        # ...
    }

chomp($cwd = `pwd`);
chomp($answer = <STDIN>);