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

f();

package Aclass;

sub f {
    print "this is the f() from the class\n";
}