use strict ;
use warnings ;

package PENDULUM ;

sub new
{   shift @_ ;
    my $pend = {} ;
    bless $pend, PENDULUM ;
    return $pend ;
}

##</code><code>##

perl -c packtest.pl
Bareword "PENDULUM" not allowed while "strict subs" in use at packatest.pl line 9.
packtest.pl had compilation errors.