Select Code to Download

sub try_shell {
    my $shell = shift;
...
    }
    return undef;
}

-bash-3.2$ sudo perl -Mblib t/quoting.t
line 1
...
line 3
line 4
^C

my @shells = grep try_shell($_), qw(sh csh bash tcsh ksh dash ash pdks
+h mksh zsh fish);