complete -c perl -s 0 -d (_ 'Specify record separator')
complete -c perl -s a -d (_ 'Turn on autosplit mode')
complete -c perl -s c -d (_ 'Check syntax')
complete -c perl -s d -d (_ 'Debugger')
complete -c perl -s D -x -d (_ 'Debug option')
complete -c perl -s e -x -d (_ 'Execute command')
complete -c perl -s F -d (_ 'Set regexp used to split input')
complete -c perl -s i -d (_ 'Edit files in-place')
complete -c perl -s I -d (_ 'Include path')
complete -c perl -s l -d (_ 'Automatic line ending processing')
complete -c perl -s n -d (_ 'Loop script')
complete -c perl -s p -d (_ 'Loop script, print $_')
complete -c perl -s P -d (_ 'Invoke CPP')
complete -c perl -s s -d (_ 'Define custom switches')
complete -c perl -s S -d (_ 'Search $PATH for script')
complete -c perl -s T -d (_ 'Taint checking')
complete -c perl -s U -d (_ 'Unsafe mode')
complete -c perl -s v -d (_ 'Display version and exit')
complete -c perl -s x -d (_ 'Extract script')