#!/usr/bin/perl -w 
use strict;
use Top.

my $obj = Top->new();

| etc.