#!/usr/bin/perl -w

use strict;
use Spreadsheet::Parseexcel;

#utility function to safely look inside a cell

sub cell {
	my ($Wks, $r, $c) = @_;
	if (defined $Wks->{Cells} [$r] [$c]) {
			my $val = $Wks->{Cells} [$r] [$c]->Value;
			chomp $val;
			return $val;
			}
	return "";
	}
	

my $parser = new Spreadsheet::ParseExcel;
my $workbook= $parser->Parse('tags sample.xls');
my $page = $workbook->{Worksheet} [0];

use define {
	TAGS => 0,
	PAGES => 1,
	PAGEVIEWS => 2,
	PAGEVISITS => 3
	};
	
my ($tags, $pages, $pviews, $pvisits);
format STDOUT_TOP =
Tags		Pages		Page Views		Page Visits
.
format STDOUT = 
@<<<<<<>>>>>>>>> @ >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
$tags,		$pages,		$pviews,		$pvisits
.

foreach(my $i=0; $i {MaxRow}; $i++) {
	$tags= cell ($page, $i, TAGS);
	$pages = cell($page, $i, PAGES);
	$pviews = cell($page, $i, PAGEVIEWS);
	$pvisits = cell($page, $i, PAGEVISITS);
	write;
	}