2 use Digest
::MD5 md5_hex
;
4 print "Ahoj svetee!\n";
6 @array = ("Neo", "Trinity", "Morpheus");
7 foreach(@array) { print( md5_hex
($_).": $_\n"); }
9 for($i=1;$i<100000;$i++) { print(md5_hex
($i*int(rand(10)))."\r") }
This page took 0.235299 seconds and 4 git commands to generate.