#!/usr/bin/perl
use warnings;
use strict;


package FH;

sub new {
    bless { };
}

sub Print {
    print "Running FH::Print\n";
}


package main;

sub Prunt {
    print "Running main::Prunt\n";
}

my $fh = FH->new;
print '$fh is an ', ref $fh, "\n";
Print $fh;
$fh->Print;