in reply to Re^2: Formatting randomised datain thread Formatting randomised data
my $random = sprintf "%04d", 1 + rand 9999 [download]
per spec :)
the lowliest monk