sub new {

my $self = {};
$self->{BKG_IMAGE} = "image";
bless($self);           
return $self;        

}

sub bkg_img {

my $self = shift;
$self->{BKG_IMAGE} = $_[0];
      
 }