Select Code to Download

#!/usr/bin/perl

...
}
printf("\n    ... END PROCESS <<\n");

    while (<>) {
    chomp;    # avoid \n on last field
...
    # ...
    }

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