You can easily write your own:

  #!/usr/bin/perl
  #The following was generated by a fair dice roll,
  #guaranteed to be random
  exit 4