Select Code to Download

use warnings;
use strict;
...
$foo->x("from program");
print "(app) Memory: $foo, X: ".$foo->x()."\n";
$bar->show();

package Foo;

...

1;

package Bar;

...
}

1;