#!/usr/bin/perl -w


# $portable_disk_nb_file = "logins/next_portable_disk_nb";


$portable_disk_nb = "003";
print $portable_disk_nb;
print "\n";
	$next_portable_disk_nb = $portable_disk_nb;
	$next_portable_disk_nb++;
# 	$next_portable_disk_nb = &dec2dec($next_portable_disk_nb);
print $next_portable_disk_nb;
print "\n";
 	$next_portable_disk_nb = &dec2dec($next_portable_disk_nb);
print $next_portable_disk_nb;
print "\n";
 	$next_portable_disk_nb = "0" . $next_portable_disk_nb;
print $next_portable_disk_nb;
print "\n";

#****************************************************************************
sub dec2dec {
# standardise decimal on 2 characters
local($val) = @_;
local($sbin);
$_=" $val ";
s/ 0 /00/;
s/ 1 /01/;
s/ 2 /02/;
s/ 3 /03/;
s/ 4 /04/;
s/ 5 /05/;
s/ 6 /06/;
s/ 7 /07/;
s/ 8 /08/;
s/ 9 /09/;
s/ //g;
$sbin = $_;
}
#****************************************************************************