#!/usr/bin/perl
use strict;
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;

my $str = $ARGV[0]; #filename
my $str2 = $ARGV[1];#sound level
my $rovio_login = 'xxx';
my $rovio_password = 'xxxxxx';
my $rovio_host = '172.20.21.14';

my $ua = LWP::UserAgent->new();
my $req = POST "http://$rovio_host/GetAudio.cgi", Content_Type => 'form-data',
Content => [
	submit => 1,
	upfile => [ $str ]
];
$req->authorization_basic($rovio_login, $rovio_password);
my $response = $ua->request($req);