#!/usr/bin/perl
sleep(rand(shift(@ARGV) // 10));