Help for this page

Select Code to Download

Select or download this

$ cat renum
#! /usr/bin/perl -w
...
        rename $f, $newf;
    }
}