Select Code to Download

#!/usr/bin/perl -w
require 5.004;
...
    my %seen;
    grep { ! $seen{ $_ }++ } @_;
}

#!/usr/bin/perl -wT
use strict;
...

# submit values: why bother?
my ( $_submit )    = ( $__submit =~ /^(why\ bother\?)$/ );