Select Code to Download

my $active = shift;

my $active=shift;
return unless $active;

while (my($screen_name, $function) = each %states) {                
    $function->($screen_name eq $current_screen);
}

my($screen_name, $function) = each %states