use XML::Parser;

my $parser = new XML::Parser(Style=>'Stream');
$parser->parsefile($ARGV[0]);

sub StartDocument {
	print qq(StartDocument\n);
}
sub EndDocument {
	print qq(EndDocument\n);
}

sub StartTag {
	print qq(StartTag $_[1]\n);
}
sub EndTag {
	print qq(EndTag $_[1]\n);
}

sub Text {
	print qq($_\n);
}

foreach $firstkey (keys %HOGE){
	print "<b>$firstkey:</b><br>";
	foreach $secondkey (keys %{$HOGE{$firstkey}}){
		print "$secondkey = $HOGE{$firstkey}{$secondkey}<br>";
	}
	print "<br>\n";
}

%PREF = (
	'kyoto' => {
		'NAME'	 => '京都',
		'JINKOU' => '200万',
		'MEISAN' => '豆腐',
	},
	'osaka' => {
		'NAME'	 => '大阪',
		'JINKOU' => '500万',
		'MEISAN' => 'たこやき',
	},
);

$PREF{'kyoto'}{'NAME'} = 京都

$PREF = array(
	"kyoto" => array(
		"NAME"   => "京都",
		"JINKOU" => "200万",
		"MEISAN" => "豆腐",
	),
	"osaka" => array(
		"NAME"   => "大阪",
		"JINKOU" => "500万",
		"MEISAN" => "たこやき",
	),
);

$PREF["kyoto"]["NAME"] = 京都

foreach $key (sort(keys %hash)) {
	print "$key => $hash{$key}\n";
}

foreach $key (sort {$b cmp $a} keys %hash){
	print "$key => $hash{$key}\n";
}

foreach $key (sort { $hash{$a} <=> $hash{$b} } keys %hash) {
	print "$key => $hash{$key}\n";
};

foreach $key (sort { $hash{$a} cmp $hash{$b} } keys %hash) {
	print "$key => $hash{$key}\n";
};

foreach $key (sort { $hash{$b} <=> $hash{$a} } keys %hash) {
	print "$key => $hash{$key}\n";
};

foreach $key (sort { $hash{$b} cmp $hash{$a} } keys %hash) {
	print "$key => $hash{$key}\n";
};

$y = 2000;
$m = 1;
$d = 1;
# 1月は13月,2月は14月とみなす
if ($m < 3) {
	--$y;
	$m+=12;
}
$w = ($y + int($y/4) - int($y / 100) + int($y/400) + int((13 * $m + 8) / 5) + $d) % 7;
print "\$w = $w\n";
# $w=6 つまり土曜日で正解です

use DBI;
$db  = DBI->connect('DBI:mysql:データベース名:サーバ名', ユーザー名, パスワード);
$sth = $db->prepare("SQL文");
$sth->execute;
$num_rows = $sth->rows;
print "該当 $num_rows 件\n";
for ($i = 0; $i < $num_rows; $i++) {
	@a = $sth->fetchrow_array;
	print "id=$a[0], name=$a[1] memo=$a[2] \n";
}
$sth->finish;
$db->disconnect;

$name ||= 'nobodyさん';

$name = 'nobodyさん' unless defined $name;

if (!(defined $name)){
	$name = 'nobodyさん';
}