use strict ;
use warnings ;

package PENDULUM ;

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