Select Code to Download

#!/usr/bin/env perl
use strict;
use warnings;
...
    $gen++;
    exit if <STDIN> ne "\n";
}