Select Code to Download

#!/usr/bin/perl
use strict;
...
    print unless $exclude{$_};
}
close SOURCE;

[me@host scratch]$ cat > a
asdf
...
asd
d
[me@host scratch]$