$response = $ua->request(GET "$IS_URL/$session_id/Service/SysAdmin/DataImport/1/2");
my $tree = HTML::TreeBuilder->new;
$tree->parse($response->content);
$tree->eof();

my @forms = $tree->find_by_tag_name('FORM');
die "What, no forms" unless @forms;
my $f = HTTP::Request::Form->new($forms[0], "$IS_URL/$session_id/Service/SysAdmin/DataImport/1/2");
$f->field("BUTTON", "Upload");
$f->field("DescriptionFile", "StockLevelImport.cfg");
$f->field("DataFile", [undef, "stock_level", $file]);
my $response = $ua->request($f->press());
print $response->content if $response->is_success;