#! /usr/bin/perl -w

use strict;
use warnings;

use FindBin;
use lib $FindBin::Bin;
use Browser;

foreach my $x ( @INC ) {
	print "$x\n";
}


my $dude = Browser->new();
$dude->name("Jason");
$dude->age(23);
printf "%s is age %d.\n", $dude->name, $dude->age;