Select Code to Download

#!/usr/bin/perl -w
use strict;
...

sub lc{ lc shift }
sub uc{ uc shift }

#!/usr/bin/perl -w
use strict;
...
while(<>){
    print $ops{$case}->($_);
}