#!perl

# So dirty.

use strict;

my $ottourl = 'http://wd-40.mit.edu/otto/otto.cgi/actionqueue';
my $uname = shift;
my $passwd = shift;
my $tmpfile = "/tmp/$0_$$";

my $cmdstr = "curl -u $uname:$passwd $ottourl > $tmpfile 2>/dev/null ";