tapeutil -f /dev/smc0 inventory |
    perl -le'
        my $vol = ( sort grep /^ *Volume Tag[ .]+(.*)/, <> )[-1];
        print ++$vol;
    '