Select Code to Download

    while (defined($_ = <>) and $_ ne "quit\n") {
    ...

    my @dupes = grep $lines{$_} > 1, keys %lines;

    % perl -ne 'END { print grep $s{$_}>1, keys %s } last if $_ eq "qu
+it\n"; $s{$_}++' file