Select Code to Download

    my $try = sub {  # line 287
        my @c1 = eval qq[\$DEV =~ /^$_[0].*/mg];
...
        my $c2 = scalar @c2;
        is($c1, $c2, "ls and $_[1] agreeing on /dev ($c1 $c2)");
    };