Select Code to Download

#!/usr/bin/perl
...
>nautilus
AGTCAGTCGATCGTACGTATATAACAC
CSADJOIASJNEEESA

use strict;
...
    sub { say 'go on'    },
    sub { RETURN 'ended' },
    sub { 'never called' },