Select Code to Download

sub new {

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

sub print_html {
print <<"HTML";
...

print_html();

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