File name:

and the perl script #!/usr/local/bin/perl -w require LWP::Simple; require HTTP::Request; require LWP::UserAgent; require HTML::Form; $user_agent = LWP::UserAgent->new; $filename ='/usr/local/www/http/cgi-bin/test/cards.txt'; $url ='https://mysite:808/access/bulk.html'; $user =""; $pass=""; $request = HTTP::Request->new(GET=> $url); $request->authorization_basic($user,$pass); $response=$user_agent->request($request); print $response->as_string; @form = HTML::Form->parse($response->content,$response->base); $form = shift @form; @inputs = $form->inputs; $input = $form->find_input( "filename" ); if($input){ print "found it!\n"; $input ->file('/usr/local/www/http/cgi-bin/test/cards.txt'); } $test = $form->click(); $test->authorization_basic($user,$pass); $response=$user_agent->request($test); print $response->as_string; if($response->is_success){ print "It's good!\n"; } else { print "It didn't work.\n"; print $results->status_line(); }