#!perl
$var = 5;
$var = "0".$var if (length($var) < 2);
print $var;