#!/usr/bin/perl
use warnings;
use strict;

use MyC;

my $c = 'MyC'->new;
print $c->a;
print $c->b;  # uninitialized value