Help for this page

Select Code to Download


  1. or download this
    
    while(<DATA>){
...
        print "$base \t $ext\n";
    }