#!/usr/bin/perl use Book; my $book = Book->new(); $book->run();