Select Code to Download

while (<>) {
    $num ="2";
...
        print "match\n";
    }
}

my $eq = sub { $_[0] == $_[1] };
my $lt = sub { $_[0] <  $_[1] };
...
        print "match\n";
    }
}