#!/usr/bin/perl
use LWP::UserAgent;
sleep(rand()*600);
my ($lt, $lg) = map { $ARGV[$_]+rand()*0.0001-0.00005 } 1..2;
my $lwp = LWP::UserAgent->new(agent=>'Mozilla/5.0 (iPhone; U; CPU like Mac OS X; en) '.
'AppleWebKit/420+ (KHTML, like Gecko) Version/3.0 Mobile/1C10 Safari/419.3');
$lwp->default_header(Authorization => 'Basic XXXXXX');
$lwp->post('http://api.foursqure.com/v1/checkin', {vid=>$ARGV[0],private=>0,
geolat=>$lt,geolong=>$lg});