Instead of the XOR, you could simply ensure that only one of the options is activated. Of course if more than one is selected in the command line arguments, the order of processing selects one by default. In some cases, ignoring user errors can be risky, but often, an appropriate order will simply result in some superfluous data output.

if ( $Add_Record ) {
    Add_Record( $args );
elsif ( $Edit_Record ) {
    Edit_Record( $args );
elsif ( $List_Records ) {
    List_Records( $args );
elsif ( $View_Record ) {
    View_Record( $args );
else {
    pod2usage(-verbose => 1);
}
__END__
[download]