use strict;
use warnings 'all';

use JSON::MaybeXS ':all';
use MyClassA;
use MyClassB;

my $line = <STDIN>;

my $a = bless(JSON->new()->decode($line), 'MyClassA');

print $a->getClassB()->getName() . "\n";