Select Code to Download

#!/usr/bin/perl

...
               'verbose',
               'zero|0'))
{

babylon5:alaric:/minbar/camera/canon/test:39 $ renum -t foo img*
Unknown option: t

babylon5:alaric:~:1 $ renum -t -d 4 foo bar*
Test mode:  No changes will be committed
Trying pattern: bar\*
Using format foo-%04d.jpg
No files found; doing nothing

babylon5:alaric:~:2 $ renum -t -d 4 -r foo bar*
Unknown option: t
...
      -separator <char>    Use <char> as separator character (default 
+'-')
      -test, -n            Do not make any actual changes
  All options may be abbreviated.

       Without additional configuration, GetOptions() will ignore
       the case of option names, and allow the options to be
       abbreviated to uniqueness.