Select Code to Download

my $num=42;
my $padto="000000"; # padding to 6digs
...
$num=$padto.$num;

print substr($num,-6), "\n";