#!/usr/bin/perl
  
use warnings;
use strict;
use FindBin;
use lib "$FindBin::Bin/class";
use B;
  
  
my $b = new B();
  
$b->hello();