#!perl
    use Inline CPP => <<'END';     use warnings;
     int doodle() { } 
 class Foo {
    public:      
	Foo(); 
      ~Foo(); 			
        int get_data() { return data; }
          void set_data(int a) { data = a; } 
 private:
     int data; 
  };  
 Foo::Foo() { cout << "creating a Foo()" << endl; } 
 Foo::~Foo() { cout << "deleting a Foo()" << endl; }   
END