Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
ff41\tff43\tff21
END
}
  2. or download this
    #!/usr/bin/perl
use strict;
...
    my $str = shift;
    print "foo1::uc( $str ) => ", uc($str), "\n";
}