Select Code to Download

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

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