Select Code to Download

use strict;
use warnings ;
...
}

1;

use strict;
use warnings ;
...
}

1;

sub flagged {
    my $self  =shift ;
    my @bs = $self->bs( flag => 1 ) ;
    return shift @bs ;
}

sub flagged2 {
    my $self  =shift ;
...
    }
    return $self->{f} ;
}