print <<END_HTML 
<form method="post" target="right" action=" " > 
Username:<input type="text" size="6" name="Username"  
                Value=Username /> 
Password:<input type="password" size="6" 
                name="Password" value="Password" /> 
<input type="checkbox" name="altdisp" checked="checked" 
       value="true" /> 
<input type="submit" value="Enter" /> 
</form> 
END_HTML

use strict; 
use warnings; 
use LWP::UserAgent; 
 
my $ua = LWP::UserAgent->new(); 
my $response = $ua->post('http://form-url', { Pasword => 'pass', Username => 'user' });