Select Code to Download

    my $message = sprintf('%d %s been loaded', $v, $v == 1 ? 'volume h
+as' : 'volumes have')

C:\>perl -E "say sprintf('%d %s been loaded', $_, $_ == 1 ? 'volume ha
+s' : 'volumes have') for 0 .. 9"
0 volumes have been loaded
...
9 volumes have been loaded

C:\>

    my $message = sprintf 'Volumes loaded: %d', $v;