Select Code to Download

GetOptions(
    'u|unique' => \my $unique,
...
    }
}
close F;

#!/usr/bin/perl-w
use strict;
...
    }
}