#!/usr/bin/perluse Palm::Raw;my $pdb = new Palm::PDB;$pdb->Load($ARGV[0]);foreach $record (@{$pdb->{records}}) {		($nextRecord, $numEntries) = unpack "S S",  $record->{"data"};		print $nextRecord, ":", $numEntries, "\n";		$data = substr($record->{"data"}, 5);		for ($i = 0; $i < $numEntries; $i++)		{			($sensor, $time, $temp) = unpack "C L s", $data;			$data = substr($data, 8);			$time -= 2082848400;			($Second, $Minute, $Hour, $Day, $Month, $Year, $WeekDay, $DayOfYear, $IsDST) = localtime($time);			print $sensor, "\t";			print $Day, ".", $Month + 1, ".", $Year - 100, "-", $Hour, ":", $Minute, ":", $Second, "   \t", ;			print $temp, "\n";		}}