#!/usr/bin/perl -w

# Load the Pictures class
use Pictures;

$p1 = Pictures->new("/staff/jeffhorn/pub/books.gif");
$p2 = Pictures->new("/staff/jeffhorn/pub/roof.gif");


#
# Hint:  Just give them the name they gave you
print "Picture #1 has name " . $p1->name() . "\n";

#
# Hint:  stat($filename) will tell you the number of bytes
# in the file
print "Picture #2 has size " . $p2->size() . "\n";

#
# Hint:  $data = `file $filename`;
#        ... rip data appart with substr and split
print "Picture #1 has height " . $p1->height() . "\n";
print "Picture #2 has width " .$p2->width() . "\n";




