# ...load the DBI and connect to your database first

my $input = "3"; # we´ll type our hacks right here inside, to save the work of doing a form. Makes no difference to what we´re testing.

my $sth = $dbh->prepare ("select username, password from users where sid='$input';" );
                            
my $affected = $sth->execute();
   
print $affected;
   
while ( my @row = $sth->fetchrow_array() ) { print join("-",@row) , "<br>"; } # instead of the form, we´re lazy, aren´t we? That´s good!