Java and Perl Web programming interview questions

#!/usr/bin/perl
#makeconnection.pl

use DBI;
	my $dbh = DBI->connect('dbi:mysql:test','root','foo')||die "Error opening database:
$DBI::errstrn";
	print"Successful connect to databasen";

	$dbh->disconnect || die "Failed to disconnectn";

#!usr/bin/perl
#connect.pl

use DBI;
my ($dbh, $sth, $name, $id);
$dbh= DBI->connect('dbi:mysql:test','root','foo')
	|| die "Error opening database: $DBI::errstrn";
	$sth= $dbh->prepare("SELECT * from Foo;")
		|| die "Prepare failed: $DBI::errstrn";
	$sth->execute()
		|| die "Couldn't execute query: $DBI::errstrn";
	while(( $id, $name) = $sth->fetchrow_array)
	{
		print "$name has ID $idn";
	}
	$sth->finish();

$dbh->disconnect
	|| die "Failed to disconnectn";