sub new {
    my $class = shift;
    $self = { frames => undef };
     
    bless $self, $class;
}