Perlのバージョンは4.0.1.8です。バージョンが古い為なのか、
以下の様なsprintfを使用したスクリプトがエラーになります。
どなたか、Perlの環境は変えずに、以下のsprintfの代わりとなる
短いスクリプトがあれば教えて頂けませんか？

&SUB(sprintf　"%02d",　$a　-　1);

sub　SUB{
　　my　$value　=　shift　@_;
　　system "$SHELL_COMMAND　$value";
}