sub new {

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

}

sub bkg_img {

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

##</code><code>##

sub print_html {
print <<"HTML";

$self->{BKG_IMAGE}

HTML
}

print_html();


##</code><code>##

$p = new MyPackage;
$p->bkg_img("whatever");