complete -c perl -s 0 -d 'Specify record separator'
complete -c perl -s a -d 'Feed input to split'
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 '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'
complete -c perl -s x -d 'Extract script'